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Another collection of fun-to-play & easy-to-learn 
math programs for children from 7-12 years old. 


Including : rekenmatrix (math-matrix) , schatten 
(estimate) and H.T.E. (hundred-ten-one). 








DOS Toolkit 


DAlnamic software 


Contains : 


Extension for DOS 1.0 featuring random access whith OPEN, 
CLOSE, GET and PUT commands. 


Üne-key commands. You are able to enter BASIC keywords and 
DOS commands whith one keystroke in command mode as well 
as in EDIT mode. 


A Disk Operating System combining the features of previous 
programs, 


ZAP, This program ables you to examine and edit the contents 
of a floppy disk. The display gives you the ASCII and Hexa- 
decimal representation of the contents of one sector, A 
special directory is included to locate easily files an 
diskette, 


BPLIMPLM. This is a source for SPL. After assembling this 
sourcefile SPL reads and writes his sourcefiles whith the 
extension SPL to avoid confusion whith BIN files, 


NOTE 3 This toolkit is exclusively for 2 X 80k drives. 
---- Delivered on diskette, 








_Dataflex 


DAlnamic software 


Dontains : 


l. 


DATAFLEX. Random access databaseprogram exploring the 
maximum capacity of your 2 X 80k floppy-drive. 
Includes editor, searcher, relative report generator, rela- 


tive label generator, quick-sort, compactor, deletor and 
MARK-generator, 


CREATOR. Dataflex file-creator. 
REDACTIE.RND, Sample data-file. 


SHAPE. INT. Sample label-shape. 


NOTE : This programs and files are exclusively for 2 X 80k 
floppy-drives 
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Fen nieuw soort collectie van DAInamic. 


Bij de vele inzendingen, die wij binnen- 
krijgen, zitten regelmatig programma's, 
die eigenlijk nergens bij thuishoren, 
Het zijn geen echte spelletjes en ook 
geen echte TOOLKIT-programma's . Vaak 
zijn het best leuke, aardige, nuttige 
programma’s., Zij zijn echter wel erg 
smaakgebonden. De een zal bv nummer drie 
al de prijs van de hele collectie waard 
vinden, terwijl een ander nummer drie, 
direct na ontvangst,gaat uitwisen om zo 
meer band tot zijn beschikking te hebben 
Soms is ook niet meer bekend wie de oor- 
spronkelijke auteur van het betreffende 
programma is. Het is dan ook beter dit 
in het programma zelf te vermelden bij 
inzending.  Programma's zijn kritiekloos 
in de collectie opgenomen, per slot van 
rekening hoeft onze smaak niet de uwe te 
zijn. Later zuilen nog meer van deze 
collecties volgen. a 


A mixture of all kinds of programms. 


See list above. We do hope you do enjoy them. 





OM“) OO CA d» C4 PQ € 


c 


a 


n t e n t s 


aankondiging 

LIFE (mip + basic) 
S-DAI rotation 
hexdump (toolkit) 
morse-generator 
string art 

moonrise 

bairstow (math's) 
Push $ Catch (game 7) 
kalender 

hypotheek (mortgage) 
logspiral 

arc en ciel 
balloon-dance (mliptbasic) 
prijzen 


Een tekstaventurenspel. De avonturier moet proberen via instructies , de pro- 
blemen, die hij op zijn reis tegenkomt op te lossen. Daarbij moet hij wel zo- 
veel mogelijk schatten zien te verzamelen. U kunt het spel afbreken en op een 
later tijdstip doorgaan met de positie waar U de vorige keer in verkeerde. De 
gegevens kunnen nl op band bewaard blijven. Volgens de auteur zijn de proble- 
men relatief simpel op te lossen, Engelse tekst 


An adventure-game. 


Accordingly to the author are all problems relatively simple to solve. 


instructions are given in english. 


Haast klaar zijn de collecties PUZZLE en GAMES COLLECTIE 13 1111 
Het volgend tijdschrift kunt U deze verwachten. 


Almost ready the new GAMES COLLECTION 13 and PUZZLE. 


You can expect them next issue. 
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130 / 99 bytes | J.G.LOOIJE 
io H-BGETC:IF H IAND #F8=14 THEM A-ASC(OMIDS (" JHHJGAAG" ‚Hi 


E 6,123)—73:H-H/2 MOD 282 X=X+H2 Y=Y+4-H 

144 / 105 bytes M. SIGO 
io H=GETC:IF 16€=H AND He-Zz THEN Ht-MIDS$(OU'IJIHHIJIIOIAAGI 
C RI", H+N-32, 2) : X=X+ASC (H$) —73: Y=Y+ASC (RIGHTS (HS, 102 -73 

147 / 121 bytes H.PETERS 
io A=GETC:FOR Tei TO 8 STEP F3A=A-1/2: Y=Y+ {ABS SGN (A-1733) 
C . “ABS (SGN (8-16))):X=xX+1% (ABS (SGN (A-1980) -ABS (SGN (4-19)? 
E ^:NEXT | 

158 / 116 bytes L.MAES 
1o =GETC:E=i:F=(SGN(G SHR PI IXOR 2)-E)*(SGN(S IAND 4x7 
C *TE)x(E—-((G IAND E) SHL £)):W=G SHR E IAND Es Y=Y+HxE-—F 
C ¡X= tAE 

158 / 127 bytes H. LAMBRECHT 
10 H=GETC-16:IF H2-O AND H€9 THEN S=1-(H+1 TAND 2): X=X+S# 
C VAL CHIDS(UUO108",H/2,1))z: Y=Y+S*VAL (MIDS ( 1080" ,H/2, 10) 


De eerste drie oplossingen zijn  buiten  mededinging dus de 
Prijs voor de korste routine gaat naar MARCUS SIGG. Dit 
zijn allemaal oneliners! De oplossing met een "string" zijn 
regelbaar tussen 1 en 58 bij gebruik van het TAB-pijltje en 
UFU", De andere zijn stappenloos regeibaar. 


De origineelstes routine werden ingezonden door: 


20 -BETC:H!-H MOD A JOS VANDEBERGH 
SO — H«H/10*88N(SGN(CH-16) -SBN (H-23) ) 

(40 ` H=He (S#H-2) | 

50 D=INT(H! # (1. 83333+H e (0. 666647*H!-2.5)) +0. 1) 2 X=X+Dx*H 
60 D=INT(1.1+H!*(-4.83333+H!*(3.5-0. 665657XH 0) ) 2 Y=Y+D*H 


De routine van Jos Vandehergh valt op door de originele 
benadering van het probleem en wel het vervatten in een 
functie. Het aantal regels is er drie teveel {regel 20, 30, 
en 40 samen en regel 50 en 60 samen). De stap is ook niet 
makkelijk te wijzigen, maar Jos wint de prijs voor 

originaliteit. 


10 SCH-8 3 MARC GOFFART 
20 H=GETT 


30 STP=1+{(PEEK (#280) IAND 64) /64* (SCH-1) 
40 =Y¥+( (PEEK GE2AS9). IAND 64)-(PEEK ($260) IGND 64)) *STP/64 
so X—X-((PEEK (#2AC) IAND £4)-(PEEK (#208) IAND 44))*5TP/54 


Dok de aanpak van Marc Goffart was uniek en het programma 
heeft als grootste voordeel ook nog een ingebouwde 
autorepeat! Hij bekijkt de laatste toetsenbordscan en haalt 
hier de informatie uit. Echt kart geprogrammeerd is het 
niet. Het vervangen van 64 door een variabele, het inkrim- 
pen tot een regel en het vervangen van (SCH-1) door een 
constante levert bytes en een bruikbaarder routine ops: 


io Z£-64:HsGETU:STP-i1-c-(OPEEK (#280) IAND Z) /Z*72Y=Y+( (PEEK G 
C 2089) IAND Z)—-(PEEK(#2AA) IAND Z))*STP/Zz:X-X-((PEEK (42 
C AC) TAND ZI-{PEEK(#2AB) IAND Z))*STP/Z 
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Hieronder volgen nog een aantal routines die ook kort, 
origineel of in een andere manier opvielen, probeert U zelf 
de werking eens na te gaan: 


142 / 56 bytes ‘korste routine bij Z maal te traag! 
N. P. Looije 
10 RESTORE:H=GETC:FOR A=16 TO 24: READ P,U: IF ASPH THEN NE 
C XT 
20 X=X+P: Y=Y+0 | 
AD DATA Oot. Oat yi. 0% 1,0,0,8,0,—-8,—-8,0,0,0,0,0 


183 / 125 bytes F. van Amerongen 


10: SHFT=10 

ZO H=GETC:IF H IAND 248-16 THEN Hiz(1-((GGHFT-1)*((0H IAND A 
Ü ) SHR 20)*(1—((H IAND 1) SHL 1)):H2=H1*((H IAND 2) SH 
GB 1)2:Y=Y+H1-H2: X=X-H2 


167 / 83 bytes W. Didier 
io A$="PPODPPHXDOPPXHPP" 
20 H=GETC:IF H IOR #F=21 THEN X=X+ASC (MIDS (AS H—ié, 1) )-806 
E ¿ Y=Y+AST (MIDS (AS, H-8, 1))-30 


195 / 149 bytes J. Vandebergh 
10 =21123 | 
20 H=GETC 
30 A=5GN (SGN {H-16)3 -56N (H-2.3) 3 + (14+H/20#7) 
20 H={H IAND 3) SHL i:sX=xX+Ae((O SHR H IAND  3)-1) 
So Y=¥tH2((0 SHR D SHR H TAND 3)-1) 


179 / 305 bytes F. Verstegen 
io N=i 
20 H=GETC 
So H=H-16:IF H IAND #FFFFFFFO=0 THEN B=(H IAND 2) SHR Man 
E =R IXOR He Z=(H/4#7+N)#(((H TAND N IXOR N) SHL NO-ND:Y 
E =Y+Z#(B IXOR NN): X=X+Z#B 


121 Y 86 bytes F.H. Druijff ‘alleen stap "10.0! 
20 H-GETC IXOR 1621F HSB THEM C!'=COS(HEPIJ#HALOG(H SHR 2): 
E &'-(H IAND PIO)/Z*UC!:X!zX!—A!:Y!-zY'--0C!—0! 


127 / 9' bytes P. Gobert ‘alleen stap 8? 
io K-GETC:E-i:E-E-((K IAND E) SHL E) SHL (-((K SHR 2 IXOR 
C $) -EXP1I)2K=E*(K SHR 1 IAND 1)2Y=Y~-K+Es X=X-K 


178 / 6i bytes F.H. Druijff 
10 DIM V{7):FOR H=0 TO S:READ Vis NEXT 
20 DATA 1,-1,0,0,10,-10 
30 H=GETC IXOR 16: IF HCH THEN X=X-V(CH+5) MOD 8)3Y=Y4V (H) 


Hierbij feliciteren wij Marcus Sigg, Jos Vandebergh en Marc 
Goffart met hun overwinning en danken bovengenoemden en 

ver der: 

Christian Lequesne, Marc de Droog, Ph. Wanet, E. Ysebaert, 
Robert Bruijninckx, Mark Vanbaelen, Jan Boerrigter, 8. van 
de Ven, Dirk de Boeck, Dieter Rumpenhorst, Lieven Heuninck, 
G. Doumont, Guy Topff, Pieter van der Hijden, J-P Mallien, 
Marc Nemegeer, Theo van Doik, E Waeytens en Stefan Gogaert. 


De winnaars krijgen een softwarepakket naar keuze en verder 
krijgen alle inzenders een reduktiebon voor | DAINAMIC 


software. B 
Nico Loaije. 
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Dit is eigenlijk een  verkapte verplaatsingsroutine omdat 


geldt: 

IF NDTíH215 AND H< 24> THEN next line ELSE .....-. 
Eleganter waren de oplossingen die zonder IF .. THEN .. 
werkten. Dat hield dan wel in dat een term 0 of 1 moet 
worden gemaakt en met het uiteindelijke resultaat moet 
worden vermenigvuldigd. Voorbeelden van zo’n factor die 1 
geven als aan de voorwaarde voldaan wordt: 


H IXOR £EB/SFB 14 bytes 
1-SGNCH Tonn SEED. 18 bytes (ook O- 7 !> 
1-SGN(&H SHR 3 IXDR 2) 23 bytes (ook 24-31 ') 


SGN (SGN CH-16) -SBNOH-23)) 29 bytes 


Het ging bij de bitmanipulatie om bit 7 tot en met 3 die 
respectievelijk OOO10XXX moesten zijn. 

Deze methodes zijn allen goedgekeurd voor zover zij vanaf 
het toetsenbord ook goed werkten. De korste manier was de 
eerste, deze gebruikte 2 operatoren {IXOR, / 2 bytes), twee 
constanten (EG, SEO 10 bytes) en een variabele (H 2 bytes). 


Let wel, de SGN functie in combinatie met integers gebruikt 
conversiebytes INT -> FFT en FPT —> INT! 


m} 


2. Het bepalen of een SHIFT toets is ingedruktz 


Dok deze informatie kan uit de bits worden afgeleid ais 
bit 2 1 is dan is SHIFT ingedrukt. De senvoudige manier is 
testen of H groter dan of gelijk is aan 20. 

Zo onstonden de volgende termen Giiv: 


LtH/ 2087 i? bytes 
i+{H SHR 2 IAND 12-7 27 bytes 
~CINOT í(H/20*7)) zonder mathchip 18 bytes 
INOT (—-H/20*7) met mathchip 17 bytes 
X(H} (array) 6 bytes 
ASCIMIDSUUJHHJOGAAQ".H-16,12)-73 33 bytes 
i+({2 SHR (H-16)*4 TAND SF) 31 bytes 


Hierbij werd dan gelijk de waarde met shift meeberekend. 
Let op het verschil tussen INOT met mathchip en zonder nu 
zal dit niet zovaak tot problemen leiden om dat alleen 
ondergetekende van deze methode gebruik had gemaakt. 

De drie laatste methodes zijn gebaseerd op een offset in 
array of string of numerieke variable. De twee laatste 


methodes hebben het nadeel dat de stapvariatie zeer 


S klein 
is. | 


jr 


4. Het bepalen van de richting X af Y. 


Deze bewerking leverde bijna niemand problemen op de 
correcte stand van bit i (OQ voor Yi voor X) werd zeer 
makkelijk uitgewerkt. Als voorbeelden: 
Zeit SHR 1 TAND 1} #V: X=X+Z3 V=Y+4-Z 
Z-H/2 MOD Dau: X=X+72s Y=¥+V-Z 
M=X+X CH): V=Y+ Y {H} array 
De waarden van de toetsdruk (4) vermenigvuldigd met de 


waarde van bit 1 en gecorrigeerd voor X of Y. OF gewoon 
opgehaald uit een array. 


4. Het bepalen van de richting + of ~. 


Dit kostte meer inspanning om dit netjes en kart te 
programmeren. Aangezien 16, 17 ,20 en 23 positief en i7, 
18, 21 en 23 negatief resultaat geven, moesten er meerdere 
bits getest worden. De mensen met een array hadden het niet 
zo moeilijk. Maar voor anderen was dit de grootste term. 
Als bit 0 en 1 gelijk zijn is de waarde positief anders 
negatief. Voorbeelden: 


INOT(-H IAND 2) met mathchip 11 bytes 
{-H IAND 2)-1 i4 bytes 

De meeste andere manieren waren complexer en inverteerden 
optellen en aftrekken. 


De meest gemaakte fouten 


Een veelgemaakte fout bij het werken met bitoperatoren was 
het feit dat te veel () werden gebruikt. Dit omdat men 
blijkbaar de prioriteiten niet goed kent. Zo is bijv. 
(H IAND 2) SHR 1 verkeerd, beter is: H SHR 1 IAND i. 
Het artikel van Frank Druijff uit voorgaand nummer nog maar 
eens goed doorlezen! Dok het gebruik van te veel variabelen 
of lange namen voor variabelen kost geheugen. Dit is niet 
bevorderlijk voor een zo kort mogelijke routine. 

Er waren programma’s bij waarbij de stap zo beperkt kon 
worden geregeld dat een minimum van tussen i en So niet 
mogelijk was. 

Er waren velen die termen dubbel gebruikten en twee maal de 
volledige term in plaats van deze in een variable op 

te slaan voorwaar verspilling van bytes en computertijd. 
Het feit dat toch nog enige routines met INTEGER operatoren 
geheel in FPT waren geschreven geeft te denken! Dit gaat 
goed maar het blijft oppassen voor afwijkingen! 

Als je na IMP INT nog INT(A/4,0) ziet staan, is er toch nog 
iemand die de DAI niet vertrouwd. 

Als er om een zo kort mogelijke routine wordt gevraagd is 
het nuttig om de gehele regel (126 gecompileerde bytes) ten 
volle te benutten! 


DE UITSLAG: 


De telling geschiedde als volgt: als initialisatie werd de 
lengte van de SYMBOLTABLE en HEAP-4 (de minimale CLEAR) en 
het eenmalig inlezen van array's en variabelen geteld. Het. 
deel dat overblijft kan dan iedere keer weer gebruikt 
worden. | 

De kortste routines en hun gebruik van bytes voor eenmalig 
en iedere volgende keers 


124 / 96 bytes met mathchip!'!! t!!! N.P.LOOIJE 
10 =GETC:V=IMOT (-H IAND 20s(H IXOR 4EB)/4F9*1 INOT (He 
C 204*7)):H-H/2 MOD 242 Y=Y+Y-H2 X=X+H 

129 / 101 bytes M.P.LODIJE 
10 H=GETC:V=(H IXOR HEB)/BFO*( INOT (H/20*7))*((-H IAND 2 
c )-1):H-H/2 MOD 28V: Y-Y-V—Hz: X-X4H 
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abruft, ist sehr bequem. Zuerst wird ein Kopf ausgegeben mit Name der 
Diskette, Anzahl der freien Sektoren und Directoryeintragungen, Anzahl 
der schlechten Sektoren, Formatierungsdatum und Status (z.B. ob gegen 
Neuformatierung geschützt oder nicht). Dann werden die Dateien einzeln 
aufgelistet, mit Dateityp, Status, und Name, und man blättert mit der 
Leertaste Zeile für Zeile weiter.  Benutzt man dabei die Repeattaste, sc 
werden die Angaben sehr schnell aufgelistet, so daß man zügig zu jeder 
beliebigen Eintragung kommen kann. Nach der letzten Eintragung wird dics 
Liste wiederholt so oft man will, oder man kann mit Cursor-auf oder —ab 
sofort zur ersten Zeile wiederkehren. Ist die zuletzt angezeigte Datei 
vom Typ BAS oder UTY, so kann sie mit Cursor-links gleich geladen wer— 
den, und bei Basic-Dateien mit Cursor-rechts geladen und gestartet wer- 
den. Leider ist es nicht möglich, vom Directory aus Dateien zu löschen 
usw., aber das ist zum Teil auch eine Schutzmaßnahme. 

In der Directory sind für jede Datei noch weiter Merkmale abgespei- 
chert, die man auch ausgeben lassen kann: das sind die Dateilänge, der 
oben erwähnte 2-Byte Informationsblock (normalerweise die Ladeadresse), 
die Anzahl der belegten Sektoren, und das Datum der Erstellung der Datei 
und der letzten Änderung. Auch kann man in Kurzform nur die Eintragungen 
eines bestimmten Dateityps ausgeben lassen. 

Natürlich gibt es auch Befehle, um Disketten zu formatieren (ein- 
fache und doppelte Dichte) und um Disketten zu kopieren. Zur Zeit kön- 
nen nur ganze Disketten Spur für Spur kopiert werden, (BACKUP) aber 
später soll es möglich sein, einzelne Dateien zu kopieren oder eine Dis- 
kette unter Zusammenrücken der Dateien zu kopieren (kompaktieren!) 
Übrigens sind auch diese Operationen sehr schnell--das Formatieren von 
einer Seite einer BO-Spur Diskette braucht 1 Minute 10 Sekunden und ein 
Backup einer fast vollen 385 KB-Diskette (nur 9 KB frei) braucht 1 Min 
32 Sekunden (eigentlich wollte ich eine ganz volle Diskette kopieren, 
aber das funktionierte bei zwei Versuchen nicht!) 
| Diskettenbetrieb ist auch in Kombination mit Kassetten oder MDCR 
möglich, und es gibt DOS Befehle DISK, CAS, RCAS, WCAS und DCR, die 
zwischen diesen Möglichkeiten hin- und herschalten. Das DOS enthält 
eine Kopie des DCR TOS, so daß die mit den DCR's gelieferte Karte für 
den X-Bus nicht mehr benütigt wird. 

Zusátzlich zu einigen weiteren Diskettenbefehlen (z.B. zur Umbenen- 
nung von Dateien usw.) enthàlt das DOS noch einige kleine Hilfsbefehle, 
die allgemein nützlich sind, z.B. BAS zur Veránderung der Basic-Zeiger, 
LPRINT zur Druckausgabe auch über den DCE-Bus (oder wahlweise Bild- 
schirm, RS232C, usw.), und FIND zum auffinden von Zeichenketten im Spei- 
cher. SchlieBlich gibt es noch nicht implementierte Befehle als Schnitt- 
stellen zu späteren Erweiterungen wie CPM oder eine Echtzeituhr. 

Die DOS-Befehlstabelle ist àhnlich aufgebaut wie beim DCR TOS. Ins- 
besondere künnen DOS Befehle direkt in Basic Kommandozeilen auftreten, 
und in Basic Programmzeilen künnen sie benutzt werden in der Form "CALLM 
#F000: REM Befehl...". Der Zeiger zur Befehistabelle sitzt im RAM, so 
daB die Befehlsliste leicht erweitert werden kann. Nur der Aufruf von 
DOS-Befehlen aus Maschinenprogrammen ist noch etwas umstandlich, weil 
die unumgänglichen Dateinamen zuerst in das KEN~DOS RAM abgelagert wer- 
den müssen; dies soll aber in Zukunft geändert werden und ein festes 
Frotokoll zur Übergabe von Zeigern in den CPU-Registern vereinbart 
werden. 

Um zusammenzufassen: KEN-DOS ist ein sehr schnelles und sehr leis- 
tungsfähiges, aber noch nicht ganz ausgereiftes Diskettenbetriebssystem 
für den DAI. Es ist sehr empfindlich gegen Störungen aber dies kann 
zum Teil (nicht ganz) durch Hardware—-Anderungen am DAI behoben werden. 
Auch die Software funktioniert noch nicht ganz einwandfrei (es gibt auch 
sicher viele Fehler, die ich einfach noch nicht entdeckt habe!), aber 
die Softwarefehler werden nach und nach ausgebessert, und dies bisher 
kostenlos--sonst wäre das System auch nicht annehmbar gewesen. Schon 
jetzt finde ich es trotz allem Arger, den ich mit Fehlern hatte, wesent- 
lich angenehmer mit KEN-DOS zu arbeiten als mit Kassetten, und ich hoffe 
nach Beendigung der Entwicklungsarbeit, die noch im Gange ist, recht zu- 
frieden mit dem System zu sein. 


Bochum, den 6. Marz 1984 Gordon Wassermann 


CURSORTOETSERN 


— mase — — — — — — — — — — — —— — — — 
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In het eerste nummer van DAINAMIC dit jaar stond een 
prijsvraag waarin gevraagd werd om een routine te program 
meren die het volgende doet: 


VOORWAARDEN: 


1. Alleen de waarden van X en Y veranderd als er een 
cursortoets ingedrukt is. 
2. X of Y vermeerderd of verminderd met i als er een 
| cursortoets is ingedrukt. | 
3. Als er ook een shifttoets is ingedrukt dan wordt X of Y 
met een door de gebruiker in te stellen integerwaarde 


` verhoogd. j 


BEOORDEL I NGSCRI TERIA: 


— midi. —— — —— ——— — — — — —— 


1. De correcte werking. 

2. De grootte van de routine zowel na een als twee keer 
gebruiken in bytes. | 

3. De originaliteit van de routine. | 

4. De bruikbaarheid en programmeerbaarheid. 


ad 1. Van de 45 ontvangen oplossingen voldeden er vier — 
aan de gestelde criteria. Aan een aantal andere moest iets 
worden toegevoegd of weggelaten. Zoals bij mensen die voor 
het gemak de waarde met shift niet hadden : 
geinitialiseerd of zelfs geen lijnnummmers hadden gegeven. 


ad 2. De bij de prijsvraag vermelde routine nam 221 bytes 
respectievelijk 200 bytes in beslag. Er werd TOF A pond 
een oplossing die zo kort mogelijk en het dende — 
regel paste. Er waren  toch  mensen die met gemak — ere 
routines schreven, die tot 1300 bytes geheugen gebruikten. 


ad 3. De originaliteit van de routines was een van de 
moeilijkste punten om te beoordelen er zat in veel routines 
wel een originele vinding uiteindelijk is voor de 
origineelste methode gekozen. 


ad 4. De meest bruikbare en makkelijk te programmeren 

routines zijn die die met behulp van een array werken. 
Helaas is dit niet altijd de kortste en zeker niet de 
origineelste manier. Andere manieren zijn  korter maar 

moeilijker te programmeren. 


DE INZENDINGEN: 


Hier volgt een korte beschrijving van de gebruikte 
methodes: 


i. Het bepalen of een cursortoets is ingedrukt: 


i F a u m THEN m oc m = te 
Aangezien het toegestaan was om I 
ae hebben zeer veel inzenders daar gebruik wan 
gemaskt. De meest gebruikte routine was 

IF H>15 AND H<24 THEM ....... {19 bytes) 
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die DAI-Platine einzulüten zwischen Pin 49 des X-Bus (Hold Request) und 
Pin 8 des DCE-Bus; dieser Umbau war genau beschrieben und ging völlig 
problemlos vonstatten--der Draht dazu und sogar Lötzinn wurden mitgelie-, 
fert! Da an den Lütstellen keine IC's sitzen besteht fast keine Gefahr, 
den DAI zu beschádigen. Das Formatieren der ersten Diskette und das 
Austesten der Laufwerke lief auch einwandfrei und ich konnte bald begin- 
nen, mit dem System zu arbeiten. 

Als erstes wollte ich natürlich wissen: wie schnell und wie leis- 
tungsfähig ist KEN-DOS? Hier wurde ich nicht enttäuscht! Das System 
kann in der Speicherkapazität und in der Schnelligkeit mit den besten 
kommerziellen Produkten konkurrieren: auf eine Seite von einer 80-Spur 
Diskette passen 400 KB, wovon 385 KB für den Benutzer frei bleiben (der 
Rest ist für das DOS reserviert), und das Abspeichern von 60 KB auf der 
Diskette, einschlieflich Erstellen einer Datei, Anlaufen des Motors 
usw., braucht etwa 8 Sekunden!! (Das ist nicht ganz so schnell wie die 
von Gooswit behauptete Zeit von 32 Sekunden für 400 KB, ist aber auch 
nicht nur die reine Datentransferzeit. Es ist immerhin zehnmal schnel- 
ler als die DCR und 100 mal schneller als Kassetten, und zum Vergleich 
etwa viermal schneller als die Datentransferrate der professionellen CBM 
Laufwerke Lich meine damit nicht das langsame CBM64 Laufwerk]) Man kann 
also ohne weiteres auch große Blücke oft auf Diskette sichern, oder ein 
großes Programm für eine schnelle Benutzung kurz einmal laden, ohne daß 
es lästig wird. Zum Teil verdankt das System seine Effizienz der von 
KEN-DOS benutzten ungewöhnlichen Sektorenlänge von 1 KB, aber diese 
Länge ist bei der üblichen Dateigröße von über 4 KB insgesamt wesentlich 
sparsamer als die üblichen 128 oder 256 Byte-Sektoren, weil weniger 
Flatz auf der Diskette für die Markierung der Sektoren gebraucht wird. 

Die Freude über die Leistungsfähigkeit des Systems wurde aber bald 
getrübt durch das Auftreten der.ersten Mangel, sowohl in der Software 
wie in der Hardware. Wichtigstes Hardwareproblem ist, daß der DAI mit 
KEN-DOS außerordentlich empfindlich wird gegen Schwankungen in der Netz- 
spennung und statischer Aufladung; vielleicht liegt das zum Teil daran, 
daB die Epromplatine von dem normalen DAI Netzteil versorgt wird, das 
nicht dafür ausgelegt ist. Die Auswirkungen:  spontane Hardbreaks oder 
Stack Üverflow, oder die Laufwerksmotoren fangen von alleine an zu lau- 
fen. (Bei mir fingen die Motoren auch an zu laufen, wenn ich vom UT aus 
ein Maschinenprogramm nach Z3 mit dem G Befehl starten wollte). Diese 
Fehler treten auch oft auf, wenn man z.B. einen Drucker einschaltet oder 
ein anderes Gerät.  Komischerweise hatte ich solche Fehler meistens bei 
Maschinenprogrammen, wo das nur ein Argernis war und nicht zu Datenver- 
lust führte, aber die Folgen künnen manchmal schon schlimmer sein, zumal 
man sich auch nicht immer mit einem Reset aus einem Aufhängen des Rech- 
ners retten kann: wegen der Bankumschaltung wird KEN-DOS bei Reset nur 
richtig initialisiert, wenn Bank O selektiert ist——sonst muß man den DAI 
ganz ausschalten!! 

Herr Gooswit behauptet, durch Einlüten eines Widerstands und eines 
Kondensators auf die DAI-Platine kann die Empfindlichkeit gegen Störung 
reduziert werden, und er hat diesen Umbau auch (kostenlos) bei meinem 
Rechner durchgeführt. In der Tat scheinen die Ausstiege auch seltener 
geworden zu sein, aber ganz behoben ist das Problem damit noch nicht. 
Auf der Gegenseite kann man sich gegen die Konsequenzen solcher Aus- 
stiege schützen durch hàufiges Absichern der Programme und Daten auf 
Diskette, was wegen der Schnelligkeit des Systems keinen Zeitverlust be- 
deutet. Es gibt sogar einen DOS-Befehl, der erlaubt, mit nur einer 
Taste sein Programm oder einen Speicherbereich abzuspeichern. 

Das Schreiben und Lesen auf der Diskette scheint sehr zuverlässig 
zu sein, und ich habe fast nie Schreib- oder Lesefehler gehabt.  Aller- 
dings habe ich schon einige Schwierigkeiten erlebt bei Verwendung der 
innersten Spuren der BO-Spur Disketten, aber ich weiß nicht inwiefern 
man diese Probleme dem DOS zuschreiben soll oder eher den Laufwerken. 
KEN-DOS kann so ziemlich mit beliebigen Laufwerken geliefert werden, 
Oder man kann die Laufwerke auch selber kaufen. 

Was die Goftware betrifft, so war die Version, die mir im Januar 
geliefert wurde, zwar lauffähig (mit einigen kleineren Fehlern) aber un- 
vollstándig (einige Befehle waren noch nicht implementiert, aber eine 
vollständigere Version war für Ende Januar versprochen). Größter Nach- 
teil war die Inkompatibilität zum DAI-Kassettenbetriebssystem. Zwar — 
funktionierten die normalen Befehle SAVE ,LOAD,SAVEA,LOADA,R und W auch 
mit DOS, aber der Aufbau einer Kassettendatei wurde im DOS nicht nachge- 
macht, so daß andere Programme, die die Kassettenschreib- und Lesepro- 


192 gramme fur Nichtstandarddateien verwendeten, mit DOS nicht richtig funk- 


i ierten. Das Problem lag darin, daß auf Kassette zwei Datenblöcke 
GE werden, von ann der erste außer bei dan PE Og nen DHL... 
ein oder zwei Byte lang ist (z.B. bei AHT Assemblerquelltextdateien e 
hält dieser Block die Anzahl der Zeilen). Da es sich nicht Abe ien 
zwei Byte auf die Diskette zu rc Em die frühen DOS Versionen 

i ion einfach weggeschmissen! | 
de er des ersten DOS hatte ich ohnehin — 
genheit, Herrn Gooswit einige Änderungen und Verbesserungen YS HER a 
gen, und es hat sich zwischen uns eine sehr fruchtbare ee ta iei 
entwickelt, bei der er sich sehr bereitwillig gezeigt éiert Pie in. 
Vorschläge einzugehen. Ich habe inzwischen schon die dri — pe 
verbesserte DOS-Version, immer noch nicht ganz volistandig, rodea iun 
Verärgerung darüber, daß ich immer noch nicht das DOS habe, — ac 
im November bezahlt habe, wird erheblich gemildert durch n el 
daß ich.auch nicht gezwungen bin, mich mit den eventuellen bide et EE 
keiten des DOS abzufinden--was mir nicht gefallt, wird — — I 
gebessert! So ist die oben erwahnte Unvertraglichkeit mit — DE 
grammen weitgehend behoben--die kurzen 2-Byte Blöcke, die wic ige d 
formation enthalten künnen, werden jetzt in die Directory ET en 
ohnehin Platz vorhanden war, und stehen beim Lesen wieder zu ero ngung. 
Auch andere ähnliche Probleme sind inzwischen behoben. ne Rides — 
einige zum Teil auch schwerwiegende Programmierfehler im DOE = Sdt iy 
aber diese werden sicher in der náchsten DOS-Version korrigier zu M 
und ich erwarte, daß das DOS demnächst in einer vollständigen i BRE 
funktionierenden Version vorliegen wird. Ich wild icis oe en 
weiter hier auf gegenwärtige DOS-Fehler eingehen, sondern "M er = — 
sprechen, diesen Bericht später in der Clubzeitung zu aktua Se = 
hier nur noch eine allgemeine Beschreibung des DOS To A —— 
alle bisherigen Ausbesserungen des DOS habe ich vollig kostenios 

usch der Eproms. . 
SEP cupi rine (oder ird in seiner Endversion) recht bequem an Es 
erlaubt die Erstellung von sequentiellen Ben on en en — 
teren ist der Zugriff auf einzelne Sektoren möglich, SO ee icd Che 
kette als einen großen virtuellen Speicher einsetzen kann (z. E aor 

Textverarbeitung oder Dateiverwaltung). Random-Dateien dado id —— 
KByte lang sein. Bei Double Density Betrieb können bis zu ER Wie — 
angelegt werden. Einmal geschriebene Dateien können übersc Ean en S 
den (also aktualisiert), aber sie konnen auch gegen ee en — 
schützt werden. Sie können auch gestrichen werden ( DELE I: — — 
nen aber noch in der Directory, und können spater wieder — g 
macht werden. Sie können auch unwiederbringbar gelöscht ecl e — 
Sicherheit aber nur nach vorherigem DELETE); dann kann — dig dera 
Diskettenplatz für andere Dateien neu genutzt werden — ie ee 
automatisch genutzt wenn neue Dateien geschrieben werden ir ie 
tenverwaltung verschwendet also ere EH Se der Diskette, au 

i rmals geschrieben und gelüsc wer ` 8 — 
ise D benötigt 1,5 KB vom DAI RAM a File 

Allocation Map“ ("DateiBelegungskarte") und einen Ua aas ci sie ER 

Dieser Block sitzt —— — A ne. — 

= en verschoben), kollidiert son E 
en Durch Ändern eines Zeigers kann man diesen — 

eine beliebige Stelle im Speicher legen.  Versehentliches in gio id 

dieses Blocks scheint keine schlimmen Konsequenzen zu haben, da — 

wieder (nach einmaliger Fehlermeldung) von der Diskette an 
Dateien können durch Zuteilung einer Codenummer gegen uneria 
À hützt werden. | . | = 
he den bekannten Basic und Utility Befehlen gibt es im rps — 
fehie DSAVE und DLOAD um von zai cuin den üblichen i c VR DE en 2 
inenprogramme können über den ü zh > e 

El pe dic Deed ansprechen; dies funktioniert jetzt fast en 

che Weise, wie bei Kassettenbetrieb. Ein verbl ei bender — — ET 

Unterschied--das DOS gibt p ee bs tes er Ge A 

it einer Zahi ; oder 3 

En oo 3 (SRC für Assemblerquelltext), 4 T = SE 

für Textdateien) una 6 (DBS=Dat aBaSe??) 3 es empfiehlt — Mrd 

gramme notfalls umzuschreiben, damit sie diese Typen — bd E 23 De 
meist nur ein oder zwei Byte geandert werden), zumal nichts ek ar en 

wendungen der normalen Typen 0,1,2 mit DOS Probleme ergeben oe n 

dere Datentypen (etwa "*" oder "Z") werden zwar angenommen : Mus 

Bereich "O" bis "7" umgewandelt, was auch Probleme verursac pd En. 

Der Befehl DIR (Directory), der das Inbaltsverzeichnis der Di is 
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SAMENVATTING 3 


2% i i : 
ts interru t mask re ister, waarmee we kunnen bepalen welke 
fall. 08 ne de CPU wordt doorgegeven. Dit register heeft 
aan de CPU door en we b.v. alleen een interrupt request van timer 3 
PRU Rus lei ers geven, dan vullen we het interrupt mask register met 
— 10002. We kunnen interrupt requests dus maskeren (= aan 


het oog onttrekken), d 
F oor de : i i : 
register 0 te maken. overeenkomstige bit in het interrupt mask 


Wann i 
tg d uc mask register vullen met een zodanige 
| ; | n interrupt wordt door 
leert dit register tevens de prioriteiten gegeven, dan contro- 


Hierbij geldt, dat b 
titeit Bare 7 van het interrupt register de laagste prio- 


Voorbeeld: 


Wannee >t j i 
en fee ie en mask register gevuld hebben met 01010000 
meer, et receiver register plegen tegelijkertijd een ` 
— di n s dan wordt eerst de interrupt service routine 
register B dne. request van het receiver 

: : de - interrupt service routine ui 
die behoort bij een interrupt request van timer 4 un Trem 


3. Een j int i 
8 bits interrupt adresre ister, dat, afhankelijk van de inter- 


rupt L3 
Buc ee S restart-instructie vormt en deze 
. (Zie d ^I/O-i i i 
Soe e les "I/O interfacing" uit de basiscur- 
Vraag 11: De operatie-code van de restart-O instructie is 
De operatie-code van de restart-1 instructie is 


Bij bg van het interr | 
(11 000 111,). upt register hoort de restart-0 instructie 


Bii ; 
ij bj hoort de restart-1 instructie (11 001 1112), enz. 






7. D i i 
— dc E a elk, afhankelijk van de waarde 
EGE e een tijdvertraging tot sta 
brengen van minimaal 64 usec en maximaal 16.320 en. — 







8. j 
De interrupt controller van de TICC bestaat uit de volgende delen 


a. Een interrupt regi i 
: ister, waar i : 
komen. r in de interrupt requests binnen- 


b. Een interrupt mask register, 
mee het wordt gevuld, bepaald 


laten. Het interru 
z t m 
teiten. E RD EO 


C. Een inte p gi 
rrupt adresregister, waarin de restart-instructies ge- 


Vormd worden. 







dat afhankelijk van de waarde waar- 
e interrupts kan maskeren of door- 
ister controleert tevens de priori- 
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Testbericht KEN-DOS 


Vor einem Jahr wurde von dem niederländischen DAI-Benutzer Kenneth 
Gooswit ein selbstentwickeltes DOS für den DAI angekündigt, das angeb- 
lich wesentlich schneller und leistungsfähiger sein sollte, als das DOS 
von dem DAI-Hersteller INDATA. Nach langem Warten ist das KEN-DOS Sys- 
tem jetzt endlich erhältlich. Ich arbeite seit Mitte Januar damit, und 
wollte hier meine ersten Erfahrungen schildern. 

Mein System hatte ich im Oktober bestellt und Anfang November be- 
zahlt.  DaB ich es erst im Januar erhielt, liegt zum Teil daran, dah die 
für mich gekauften einseitigen Laufwerke defekt waren (die Epromkarte 
war schon Mitte Dezember fertig); als ich mich Anfang Januar entschloß, 
gegen Aufpreis vorratige doppelseitige Laufwerke zu nehmen, wurde das 
System prompt verschickt und ich konnte es nach einer weiteren Woche 
Transportzeit beim Zoll abholen (es mußte zwar keine Zollgebühr bezahlt 
werden, aber 14X Mehrwertsteuer.) Meins ist sicher eins der ersten aus- 
gelieferten Systeme,so daß diese Lieferzeit nicht unbedingt typisch ist. 
Kenneth Gooswit gibt zur Zeit 4 Wochen als Lieferzeit an--hinzu kommen 
1-2 Wochen für die Überweisung des Kaufpreises und 1 Woche Versandzeit. 

Was sich mir darbot, als ich die Verpackung Offnete, machte einer- 
seits einen sehr soliden Eindruck, verriet aber auch, daß es nicht von 
einem professionellen Computerbetrieb stammte. In einem sehr schweren 
und stabilen Sehäuse (so wie man sie in Elektronikladen kaufen kann) 
waren die beiden Laufwerke eingebaut (in meinem Fall, doppelseitige BO- 
Spur Laufwerke Marke MPI) zusammen mit dem Kontroller und dem Netzteil 
für die Laufwerke--auf der Rückseite des Gehäuses waren zwei riesige 
Kühlbleche, eine Flachbandkabelverbindung zum DCE-Bus des DAI, mit auf- 
gesetzter Buchse zum Anschluß eines DCR (ob man problemlos hier auch an- 
dere Real World Karten anschlieBen kann, weiB ich nicht), und ein etwas 
klein dimensionierter Ein/Ausschalter für die Diskettenstation; wohl ver — 
steckt unter dem Flachbandkabel ein weiterer Schalter zum Umschaiten 
zwischen reinen Diskettenbetrieb und MDCR Betrieb (natürlich kann man 
auch dann gleichzeitig die Disketten benutzen! aber mit dem Schalter auf 
"Disk" kann man die DCR nicht benutzen.) Ein amateurhaftes Detail: die 
Einfassung der Laufwerke in das Gehäuse war mit einem schwarzen Klebe- 
band verziert. Für die Laufwerke lag ein dickes Stromkabel bei. 

Zum Lieferumfang gebürte natürlich auch die Epromkarte mit dem ei- 
gentlichen DOS (etwa 16 KB Maschinenprogramm, wie mir scheint). Diese 
Karte wird auf den X-Bus im DAI aufgesteckt und nimmt dann die volle 
Höhe und etwa 2/3 der Breite des DAI ein. Das DOS befand sich in zwei 
gesockelten Eproms, aber es sind sechs Sockel auf der Karte vorhanden, 
so daB man leicht eigene wichtige Programme in Eproms aut dieser Karte 
halten kann (die neueste DOS-Version belegt aber schon drei Sockel). 

Das DOS ist geteilt in Module, die jeweils den Adressraum #FOOO bis 
#F7FF belegen und über ein KEN-D0S-eigenes Bankswitching selektiert 
werden. Die Karte enthält auch 512 Byte RAM im Adressenbereich #F900 bis 
#F AFF, das vom DOS als Speicher für DOS-interne Daten verwendet wird; 
auch das Programm zum Umschalten der Bänke wird in dieses RAM kopiert. 
Dieses System hat große Vorteile für den Benutzer: zum einen belegt das 
DOS trotz seines Umfangs nur wenig von dem normalen RAM-Bereich des DAI 
(1,5 KB für Zeiger und Directory). Zum andern ist der DAI so getaktet, 
daß Datenzugriffe auf das RAM mit Zugriffen des Videokontrollers alter- 
nieren, wodurch Programme im RAM nur halb so schnell laufen wie theore- 
tisch möglich; bei Programmen in ROM oder in statischem RAM im Adress” 
bereich oberhalb #C000 gibt es hingegen keine Verzögerungen, sie laufen 
mit vollen 2 MHz. Insofern ist KEN-DOS etwa doppelt so schnell in der 
Ausführungszeit, als wenn es im RAM lage. (Ein Tip: wenn Sie Programme 
haben, die sehr schnell oder mit sehr genauem Zeitablauf laufen müssen, 
legen Sie sie auf den Stapel! oder in das KEN-DOS RAM. Auch hierzu ist 
das KEN-DOS RAM nützlich, wenn es sich, wie ich vermute, um ein stati- 
sches RAM handelt. Da die Beschriftung von den IC's abgekratzt wurde, 
kann ich das nicht genau feststellen.) . 

Natürlich lag auch eine Bedienungsanleitung bei, mit einer Kurzbe- 
schreibung der KEN-DOS Befehle, einer Beschreibung von der Speicherbele- 
gung, und einer sehr gründlichen und klaren Anleitung zur Inbetriebnahme 
des Systems. Die Kurzbeschreibung der Befehle war etwas dürftig, aber 
eine bessere Bedienungsanleitung soll nachgeliefert werden. Die Anlei- 
tung zum Anschluß des Systems ließ aber keine Fragen offen. Ein etwas 
merkwürdiges Detail: die Bedienungsanleitung war ein von einem Matrix- 


drucker gedrucktes Driginal! . 
Zur Inbetriebnahme war erst einmal nötig, eine Drahtverbindung auf 
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LOWER CASE CHARACTER 


e ren Ze ee et ee EI IE IE ILLUM 


In the Basic version Vi.l, 
to default when an INPUT st 
Therefore, it is not possibl 
ters in the input statement, 
or the CTRL—-key. 
Also the statement 
ment remains without action. 
Toe overcome this problem 
must be repiaced by another 


110 CH=GETC: CH=GETC i 
120 CH=GETC: IF CH=0 GOTO 
130 IF CH< 32 OR DCH2122 GO 
140 T$=CHRS (CHD: IPS-IP$- 
150 IF DH-1:z THEN FORE #2 
160 IF CHz28 OR LEN CIP&3= 
170 


IPSoLEPTS(IPS,LENCIPS 


100 POKE #T03,#FF: 


OOGO iNMPL PT 


stead o 


bed 
od 
ay 
C 
il 
int 
m 
ua 
d 
Le 


1000  BDSGUB 100: 


Do not place this = 
it runs only fest (like all 


t 
at the beginning of the pro: 





Larry D iffrig 
Western Electric Co, Ballwin, MO 





Àn alternative to Ira Baxter's unrolled-loop method 
for 8080-P multiplication (EDN, February 17, pg 
261) requires much less code and results in only a 
small increase in execution time. The new method 
(figure) retains a program loop, thus eliminating 
seven replications of add-and-shift operations. How- 
éver, it avoids the usual loop-overhead functions of 
initializing and decrementing a counter. 
The new routine stil performs a conditional 
branch back to the loop’s origin, though. It initially 
sets the HL register pair's bit 9 (register H's bit 1) to 
ONE, and each loop iteration shifts HL’s contents to 
the left, thus setting the Carry flag and terminating 
the loop after seven iterations. 
With an 800-nsec clock cycle, the new routine 
achieves an average execution time of 251 psec and a 
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"FOE #205, BEE: 





ASS TEES —---——————————— 
—— 


S IN INPUT STATEMENT. 


I EE I ME ere, AMET. ZI 


all keyboard 
atement has 
e to obtain 


excent by 


lower cas € 
using the SHIFT 


beiore 


Hasici, the input sta 
utine like this one: 
BEC 

120 


y 
TO i20 
if: PRINT I$: GOTO 
RETURN 
110 
PRIM? CHAS iD? 33 


iio 


3,9: 


D GOTO 


A GOTO 110 


NS", have to use: 


PEG se vU 


at the end of your program. 


Subroutines) if it is located 
gram. because a “GOSUB? checks 
tram the beginning of the pro- 
ber has been found. 

| — Jan Enerriyier, Febr. 1784 


LXI H,?00H Clear product accumulator, set "counter" hit 

MOY A.D Copy multiplier to À register 

MYI D,00H Make D/E register pair into 16-bit multiplicand 
LOGP ADD A Shift multipiter bit into carry 

JNC SHIFT Branch if multiplier bit is zero 


DAD D Add multiplicand to partial product 
SHIFT DAD $ Left shift partial product 
J Branch if "counter" bit not shifted te carry 
Eighth shift of multiplier bit into carry 
Branch if eighth multiplier hit is zero 
b DAD D Add multipticand to partial product 


Using only 20 bytes of code, this 8080-4P multiplication routine 
executes in an average time of 251 usec. accepts an 8-bit 
multiplier in register D and an 8-bit muitiplicand in register E 
producing a 16-bit product in register pair HL. 





worst-case time of 283 psec. Although these figures 
represent a 25% increase over the original routine, 
the new routine requires only 60% as much code. BO 


9. TIMERS 


afhankelijk van de waarde waarmee ze 


De vijf timers kunnen elk, nee 
tot stand brengen van minimaal 


worden gevuld, een tijdvertraging 


64 usec en maximaal 16.320 usec. | 
Elke timer is in feite een 8-bits down counter, die een klok- 


signaal krijgt toegevoerd met een periodetijd van 64 usec. 


Wanneer de inhoud van een timer 000000002 wordt, geeft hij een inter- 
rupt request die een bepaalde interrupt service routine tot gevolg 


heeft. 


Deze timers worden gebruikt wanneer we b.v. een proces hebben, waar- 
bij om.de zoveel tijd een bepaalde test uitgevoerd moet worden. 
Steeds wanneer een timer de waarde 0 heeft bereikt, wordt naar een 
interrupt service routine gesprongen, die deze test uitvoert en daar- 
na de timer weer met een bepaalde waarde vult. 
Hierna kan met het hoofdprogramma worden doorgegaan, 
weer een interrupt request geeft, enz. 


totdat de timer 


10. INTERRUPT CONTROLLER 
i — timer 5 of by van input-poort 


timer 4 

transmitter register empty 
receiver register loaded 
timer 3 

. external interrupt 
timer 2 

timer 1 


interrupt 
register 


PP PsP Pe Te] 


interrupt 


Eon luha hanahana . 





STEELE 
adresregister EISE ME 


interrupt vana 






d ia. 
naar databus fi : 


De interrupt controller die in de TICC is aangebracht, bestaat uit 
de volgende delen (fig. 9). 


1. Een 8 bits interrupt register, 


opgeslagen. 


waarin de interrupt requests worden 


Wanneer b3 van het interrupt register 1 is, betekent dit, dat 
er een interrupt request is van timer 2/het transmitter re- 


gister/timer 3. 


Vraag 10: 


Is b3 b.v. 1, dan betekent dit, dat timer 3 de waarde 00000000, heeft 
bereikt en een interrupt request heeft gegeven. 


itgevoerd, wordt 


n bepaalde interrupt service routine is u 
er 3 S tisch gereset. 


de betreffende bit in het interrupt register automa 


Ze 


12 Antw. 10: timer 3. 
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control word #1% 


D7 Dé DS D4 
o 0 


binary: i 
hexadecimal : 


D 
a — € — * 


^ 


a 


control word #14 


1 


D7 D6 DS D4 


binary: 1 
hexadecimal ; 


A 


etre maat A vaasa ium 


d 


0 


d 


i 


#99 


01 
02 
03 
04 
QS 
06 
Q7 


$965 


D3 D2 Di DO 


i 


39 
38 
37 
36 
33 
M 
33 
32 
31 
30 
29 
28 
27 
26 


25 


24 
23 
22 


21 


0 


o 


1 


* 


Immer m 
== Aa veren armay upin rn 


D3 D2 D1 DO 


1 


0 


i 


d 


X we ctr nam — 


— — — — — —— 


af 


d 


^ 


u 
Les 


+ 


* 


* 


Mem cura aut Him rta Hum — 
e uA M rena AS maa Rt — 


— rem zum — 


control word #15 


D7 Dé DS D4 
binary: 1 0 O 1 
hexadecimal 


PGO 
PCI 
PC2 
POS 
PRO 
FRI 
PEZ 


The pins nRD, nCS, Al, AQ, nWR and RST are 


to the DCE-connector, 


Please send your comments to Inno Broekman 
Avenbeek 98 


D 


#7R 


ZU 


3 D2 
i Ò 


40 
59 
28 
37 
36 
SS 
34 
AS 
32 
A) 
30 
29 
28 
27 
26 
25 
24 
25 
22 
21 


Ver 
PR7 
PRS 
PRS 
FR4 


PRS 


not connected 


2182 RZ Hillegom 
The Netherlands 
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control wnrd $9 


control word #11 





D7 Dé DS D4 DE D2 DI DO | D7 Dé DS D4 DZ D2 Di DO 
binary: i 0 G 4 ooo | binary: i 00 1 0 0 1 i 
hexadecimal : #71 hexadecimal : #95 
—— ^ PAS Ol 40 PA4 ku | i + PAS Ol 40 PA4 Son 
un ^ PAZ 02 39 PAS co — PAZ 02 39 PAS Semm 
— > PAL OZ 38 PAR € : meee PAL O3 38 PAG Ar 
— ^^ PAD 04 37 PAT Gemser | e -———-» Pë 04 37 PRO Sm 
Deseo o-nRD OS 36 pig 8 Qu o-nRD 05 36 nWR-a--———-——- a 
v pd ID ES Grant 06 35 Roten. à | (ese ont 06 35 RST-a—-——------7-7 G 
-arseszosezzzeßN]) 07 a4 DO eier d immmimummummuB5ND 07 24 Do ce — ^ 
— BA OB 33 Di ns > gemenen gesl. OÙ 3 Di messe > 
in G-BÜ. DE 32 DR (eds * | í Damm pf 09 32 D2 ee d 
— ROZ: 10% > | a PLZ. do, hs een > 
— PRE: EL 250. DA. edere: » (onan PEL Af. BO DA. were 
— PES 12 29 DE deen 5 | | dennen pps. der 329 CDS. Gemeren 7 
vues POS 13r DDA Ae > | dem PL 35. 28 De queen > 
— a PERCÉE DE D7 Hes | -—---» PRO 14 27 D7 fon? 
—À b PCI 15 26 CC m mmm —À PCI 15 26 VCC 
yc. IPUS dió. 25 PR — > Paar > PC2 16 25 PBJ Zo 
m? POS 17 24 PB&  -—— > | „use: POS: A7 PA PEG. Se 
— PRO 18 23 PBS ee y > PRO 18 23 PBS Zen 
— PBI 19 22 PB4  --—— En nn > PRL 19 22 PB4 S= 
(scene PEZ: ep. O4 PES" alot > | Bs > PB2 20 21 PB3 Go 
control word #10 control word #12 
TR D7 Dé DS DA DE D2 Di DO | D7 D4 DS D4 DS D2 Di DO 
cde I 0 D À oo 1 à : i io 6-1 1^0 0.0 
hexadecimal : 897 | | es 3 #78 
— * PAS Ol 40 PA4 gommen -=--> . PAR 0i AQ PME on 
— ^ PAZ 02 39 PAB  q--—- secos. (PAR: OR 39 PAS Se 
— > PAL 03 38 PAb Komm | couche "PAL 03. O38. BAS — 
— ^ PAO 04 37 BAT € ému PRO O4 37 PAT — 
EON er G-nRD OF 36 nWR-g----—-———— B | "—À ÁÁ co-nRD 06 36 nWR-0--- a 
Denen o-nCS 06 35 RST-p---~-—~-~— À | Bam o-nt8 Ob 35 RST-o--~------—- a 
SSB) O7 54 DO P seii ee — * | Lm———Ám———--BaND 07 SA DO ^ freee eee > 
een oA 08 ZE Di So. d —— At OÙ. > 
ren Bene. 309 GP De Kern > | — — 09 2 "DÉI sr 
E | — (EE, USE De er EE ERS =. PE HO: Sl DE ee > 
[ — PCG 11 30 DA  q---——-——— > eee > DES Wi O30 Et eee > 
| — PES. d2-. 29 DS: Leeder > een > POS. 12 29 DO Aen > 
— PES. ie 5 yo x» (PCA As 2B DG. 4-4 > 
— PUO. A4: BA DE ns x — POO ddr p eiee > 
— PCI 15 26 Vecsssssssesses= | dm PCI 15 26 Messeren 
Së EE PC2 16 25 PB7 {on | (----- PC2 16 28. PB7 oc? 
E — LE d UMP ERR Se | PCS 17 24 Pb == > 
TEM MEE —~—~—CCO > PBO 18 25 PB5 <----- | | m PBO 18 23 PRS -—-— > 
Se Ee > PEL 19 22 PBA <—— | | — PRI 19 22 PRA ===} 
BS ^ PB2 20 21 PER Cammen : — PRZ 20 21 PRS ===> d 
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controi 


binary: 
hexadecimal ; 


word #5 


D7 Dé DS D4 
1000 


D3 D2 D1 DO 
1 0 0 | 


#99 


40 PAS 


— PAZ 02 29 PAS 


control word $4 


binary: 
hexadecimal : 
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d gd — 


— — 


— — 


Mat matt t 


— — 


D7 DS DS D4 
i à o o 


— PAL O3 38 PAS 


37 PAZ 


Só  nWR-o-------.-—- oO 
35  RST-g----—---—-g 
34 DO x 
33 Di 4 
32 D2 vd 
si DS 4 
30 D4 % 
29 DS & 
28 Dé d 
27 D7 Com $e 
26 Votes se 


25 PR 
24 PRS 
23 PES 
22 PB4 


* 


* 


el PES meae > 


D3 D2 Di DO 
io 1 o 


9885 - 


control word #7 


D7 D& DS D4 5 p2 Di DO 
binary: 1 © 9 © 1: Sp 14i i 
hexadecimal : #88 
dm PAS oi 40 PAA ----- > 
im PAZ 02 39 PAS === > 
¿o PAL 05 38 PAb ----- > 
e PAO 04 37 PA7  -——— > 
BT o-nRD 0536. nWR-a----—77-7---7 o 
Denn o-nC8 06 38 RST-o------——--0 
mummmmummm—mmB5ND 07 24 DO £m co me en > 
C o-A1 08 SS Di Sm > 
g---------- c-à0 09 32 D2 Len > 
— > PC7 10 31 DR > 
e > PC6 11 30 D4 de) 
a > PCS 12 29 D5 €) 
m9 > PCS 13 28 D& dm 
> PCO 14 27 D7  &--------- 
— > FCi 15 Pa e 
> CH 16 25 PET <----- 
> POE 17 24 PB6 S= 
> PRO 18 23 PES € 
a > PBL 19 22 PB4 <----- 
mmh PE? 20 21 PRE <----- 


control word #8 


binary: 
hexadecimal 


D7 DS DS D4 
i 0 0 iù 


D3 D2 Di DO 
o 00 0 

#90 

04 40 PA4 mmm 

02 39 PAS dem 

03 38 PAb fm 

re an) ee 

05 35 — a 
05. 49 — " 
07 C34 DO Ce | 
08 33 Di — — 
09 32 D2 gen e 
10 31 DE Somme > 
i CASO DA Gosse 5 
ie 29 Di d eegen $ 
Ce" 48 D& e > 
14 27 DT  &------—- 4 
15 ^ Vtc 
18 25 PBJ — 

17 24 PB ----- > 

19 23 PBS == ; 

19 22 PB4 wena y 

20 21 PRR — > 
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control word #1 control word #3 
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D7 Dé DS D4  D3 D2 Di DO D7 Dé DS D4 DE D2 Di DO 
binary: 102020 0 0 o | . j 0 9 0 0 9 À À 
hexadecimal : $901 ag : ads 
J PAS Ol 40 PAG mn} | | — PAR 01 40 PAG oc? 
— PAZ 02 39 PAS  --——- > | | k — PAZ 02 39 PAS  ———- ? 
— PAL O3 38 PA6 ——— > : | : — PAL O3 38 PAG mom? 
— PAO 04 > en PAD 04 37 PA7  ----- ` 
Sates o-nRD O8 34 nWR-o-------—— Q —À o-nRD OF 36 nWR-a--------7-- a 
pocos hE: XH. Sa RST pauses. a EEN o-nCS 06 35 RBT-a------———-0 
— oy 07 34 Do — + o GND Q7 34 DO — # 
Qu mn GE, DE es DE Lees > EP ont OH. GS DÍ | Xe 
———— OA 09 32 D2 do > ne o-A0 09 32 D2  &——- ? 
— PCT 10 3i DE Oo > — Per 10 34 D3 Se * 
dam PC6 11 30 D4 gass > | | — PEG 30 D4 Xem 
Fine ARES por: 29 DE ee > en POS 12. 29 05 eee > 
E PCA 13 28 Db ¢---~- > | — PC4 13 28 Dé ==? 
— PCO 14 27 D7 Sed | >> ¡Co 14 DA DA er 
— PCI. 15 c mr ce AA d PCI 15 265 VEL enero eR UEM 
"reg PCZ 16 (25 PBZ <=. SE Gee S PES 36 25 THE es 
— > POS 17 24 PB6 = | ns PER 17 24 PB& Sommen 
£= PBO 18 23 PRS -——. $ | Een >» PRO 18 23 PBS de 
Sm PBI 19 22 PB4  -——— a PBL 19 22 PRA ¿== 
er PH2 20 21 PB3 na EEn >» PB? 20 21 PES  &-————- 
control word #2 control word #4 
D7 Dé DS D4 DE D2.DI DO D7 Da DS D4  D3 D2 Di DO 
binary: 100 0 0010 | : 100 o i 45.9 
hexadecimal : 592 | : EE : #88 
men PAS 01 40 PAG  ----- > | — PAS oi 40 PA4 Wee 
EE PAZ 02 39 PAB ~---- > | | | — PAZ 02 39 PAS  ———- > 
— PAL OS 38 PAG === > | | — PAL 03 
{me PAG 04 37 PAI mmm} Pe PAO 04 37 PA7 > 
prece nb: O5 26 URSS zee o — e o-nRD 06 3&6 nWR-ü0--------—— a 
Or aeo 1097006: Der "BST or o g----------o-nt8 06 358 R8T-0————————--0 
mm mm———GND 07 5 DO ee mm mou * mamas GND 07 z4 DÖ Coen E 
Gm SAI dO. BED ose > e o-Ai 08 33 Di A > 
— Oene D'DU 09 32 D2 € SUUS SUE o-A0 07 32 D2 duo > 
E Ca PCT AO ar 05 Han I PEZ 10 31 DS Gem? 
n — PCS 11 30 DA qee > cesses. BCE: At AO D4. eese > 
| E ee PCS 12 29 DS So 7 J * PCS 12 z9 DS —— — 
n {=== PC4 13 28 Dé Ven > | | Do XS > PLA 13 28 Dé A > 
| — PCO 14 27 D7 ko > | | === PCO 44 27 D7 tu) 
m PCI 15 26 Veto | | — PCI 15 26 Vccas#eesssssss= 
— PEZ. 16- 28 PBR Kanu EEE PC? 16 28 PB7 ----- > 
— PCS 17 24 PRG Gm Em PCS 17 24 FBB — > 
— ^ FBO 18 23 PB5 do e PBO 18 23 PBS > 
me ^ PBL 19 22 PB4 € Coenen  PBi 19 22 PB4 có 
— >  PB2 20 21 PBR € Eee  PB2 20 21 PES "à 


DAInamic 84-22 181 








Mee-bhus INTERFACING 


Pinconfiguration DCE-bus seen to the back of the DAlpc. 
Àu lancement du programme, celui-ci demande d'abord 1a date, puis le nom de 
la bande et enfin s'il y a déjà un " EOF " (End of File : indicateur de fin 


27 25 23 3511 9 7 5 3 1 

de fichier). En effet, si aprós le dernier programme enregistré sur la bande, pin 33 31 29 27 25 23 21 19 17 15 1 

il y à un "EOF", on peut tester dessus pour arrêter. (,sinon il n'est pas e TV ADM 
+ + ps zm C7 AS A4 EXRS IN? ~o 

(facilement) possible de découvrir si l'on a " vu " le dernier programme de INTR Bi C3 Ci B3 BS B7 CS C7 A7 Ab dE * NC XINT GND *12V 

la bande ...). IN7 B2 BO C2 CO B4 Bé C4 C6 AO AL fe A 

S'il n'y a pas d'enregistrement " EOF ", l'ordinateur proposera d'en écrire 


un. Si on n'en veut pas ou si seulement un nombre limité de titres est ünté- 
ressant, on indíque à la place le nombre de programmes. 


pin 34 32 30 28 26 24 22 20 18 16 14 12 10 8 6 4 2 


Aprés avoir réenrouler la bande et mis 1e COMPTEUR à 
méme temps sur la touche " START " ga magnetocassette 
programme lit alors les titres, les affiche à 1! 
écoulé (T), le niveau calculé pour le compteur ( 
dans les tableaux prévus à cet effet ( " T (1); 


000, on doit appuyer en = 
et la barre-espace. Le Finconfiguration IC 8255A GIG. 


ecran et enregistre le temps 
N) et le titre lu (A$) 





= 3 4 3 
; 7 iS 14 13 12 11 10 9 8 7 & 

"NOD "ag (93 u E Ne a 
Lorsque le nombre de titres demandé ou 1! "EOF" a été lu, apparatt une vue ) £z C? Ci CO C4 CS Gë C7 AQ Ai GND nCS nRD „AO AL AZ 
d'ensemble de tous les titres enregistrés avec les niveaux du compteur corres- R2 28 BO CS Cz 
pondants calculés pour F! - 1.0. Ba e B5 Ré B7 Vec D7 DS DS D4 DS D2 Di DO RST nWR A7 Ab AS 
Le programme demande alors 1e niveau REEL correspondant au dernier ‘programme Di 
(ou à 1'EOF"). Avec cette donnée, il est fait un nouveau calcul itératif (adap- EN 2 23 24 25 26 27 28 29 30 31 32 33 34 35 36 57 38 
tation de " F ! " ) pour faire coïncider les calculs avec la réalité (parfois, pr = = ES A E E 
cela ne reussit pas de facon précise pour tous les niveaux du compteur, mais Si: rag 
l'écart dépasse rarement l à 2 chiffres !). 


The schemes that follow represent the possibilities of the 
ic 8255 in its O-mode. 

You will have to POKE the hexadecimal value as command word 
in the adress #FEOQ3 of the GIC-controller. 

Finalement la valeur " O " doit être donnée pour sortir de cette boucle et la Warning: do not PEEK #FEOS. 

question " Impression ( O/N ) ? est posée. 


Aprés ce calcul, la vue d! 


ensemble corrigéeapparaît pour contrôle et on peut, 
si on veut, à nouveau, intr 


oduire une " valeur réelle ", etc ... 


ea ic-B8255a-PINS si 


5 ++ 
type ) en service, puis l'impression est faite apres appui sur la barre-espace. PARSE mode O HEER 


control word #0 


D7 Dé DS DA DS D2 DI DO 


ee oo000-----..-- binary: i 9 0 O0 0 00 0 

| hexadecimal : #80 

|: — PAZ Ol 40 PAR  ————- a 

| — PAZ 02 39 PAS === > 

Fo * ^ 

E — pat 03 38 PAb  -——- > 

E — EN NA 3 AT. — > 

E NB.- Si on a des difficultés avec la linéarité ( nombres dans 1a zone du miléeu > SE = z on — o 

i trop grands ou trop petits), il faudra probablement adapter un peu 1a valeur car n a Hs 35 RST-0- me o 

E de" R" (et / ou de " D") (ligne 240). I1 se peut également que la vi- — — 9 ND 07 +4 DO. Weis 5 

i : n n 1 4. MEE I EE a ` 

tesse " V ne soit pas exactement 4.75 eee. aM 08 33 Di Cm > 

b Cette " adaptation " peut se faire tout simplement en modifiant pendant un —— — 0-50 Q9 32 D2 Rene d 

| " BREAK " une ou plusieurs valeurs, et en introduisant à nouveau aprés — PC7 10 Zi D3 < — € > 

| " CONT" la " valeur réelle'exacte ! ( Répéter si nécessaire jusqu'a obten- um POS 11 30 D4 ve ? 

b! tion de la précision désirée ...). — PES. 12 29 Do. es? 

: s A à à — 3 28 Db (===> > 

| L' impression peut évidemment étre réalisée sur n'importe quelle imprimante. E SE E 27 D7 — > 

I. Dans ce cas, seule la "baudrate " doit être adaptée et l'attente aprés une — pri 15 26 WVccmmmmImmmmmmm 

|: retour chariot (CR) ( marche à vide avec " NUMBER " . pas de WAITTIME sinon PR PC? 16 25 PBJ ----- » 

| le chronométrage est perdu ! ) n'est souvent plus nécessaire. : EORNM PCs 17 24 PRG — > | 
H — PRO 18 25 PBJ wen ? Dâinanie 84-22 179 
| 178 DAlnamic 84-22 — PBI 19 22 PB4  --—- > | 
T ME | 





m PR? ^70  ?1 PRX ou > 











PC OUT, STATUS | PC-PC«1 | 





Voorbeeld van een instructie met vier machinecycli 


LDA adr 


Deze instructie laadt de accumulator met h : 
et datawoo 
adres adr bevindt. rd dat zich op het 


Machinecyclus M4 is weer dezelfde als hoger, evenzo M en Ms met dat ver- 
schil dat de bytes B2 en B3 die het adres vormen, nu ingeschreven worden 
in de interne registers Z en W die alleen ter beschikking zijn ven de 


microprocessor en die niet toegankelijk zijn voor de pro 
rammator. 
De vierde machinecyclus wordt ME = 


| WZ OUT, STATUS | DATA > A 
rn jm [m7] 


Vcorbeeld van een instructie met vijf machinecycli 







LHLD adr 


Deze instructie laadt het registerpaar HL met de inhoud die zich bevindt 
op de plaatsen aangegeven door adr en adr+1. 


Opnieuw is M4 zoals voor alle instructies identiek. Gedurende My en Ma 


worden de bytes B : : | i 
velijk W. y 2 en B3 geladen in de inwendige registers Z, respectie- 


Mg en Ms tenslotte verlopen zoals hieronder aangegeven. 





WZ QUT, STATUS DATA EN 


pid geeft tenslotte een overzicht van de samenstelling in functie van 
e tijd van de instructies van de 8080. Het is de lezer aangeraden 


eerst de volledige instructieset (§ 4.2) d 
. cor te 
tabel te bestuderen. nemen vocreleer deze 
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LISTAGE DE CASSETTE 


DAInNamic 17 p. 220-221 


Si, comme moi, vous devez travailler avec la panoplie du pauvre - composée d'un 
DAI pc, d'une TV, d'un magnétocassette (et d'un télétype ASR) - alors le pro- 
gramme ci-dessous peut vous intéresser. 


Surtout si, comme moi, vous avez tendance à enregister pas mal de programmes 
sur une seule bande et si, au plus fort de la bataille, vous négligez de noter 
ponctuellement ' où " se trouve ' quoi "ses 


Le programme en question est basé sur un programme de liste déjà paru dans 
DAInamic avec une extension supplémentaire de calcul automatique de l'indica- 


tion du compteur.. 


C'est surtout ce calcul qui, à mon avis, représente la grande force de cette 
version, car ii n'y a que par ce moyen que l'on peut obtenir un catalogue vrai- 
ment utilisable d'une cassette. 


COMMENT CELA FONCTIONNE-T-IL 7? 


Afin de ne pas allonger le temps de lecture, je n'ai pas fait figurer dans le 
programme lui-méme le texte détaillé et les explications du principe que l'on 
trouverci=après 


Laisser l'ordinateur lire le TITRE des programmes et des fichiers, calculer le 
temps entre la lecture de deux titres successifs et en déduire le niveau atteint 
par le compteur. 


Compte tenu que le compteur interne du DAI ne tourne pas pendant la lecture du 
titre, il y a lieu d'apporter une correction en ajoutant environ 2,5 secondes 
pour chaque titre lu ( environ 2,3 s pour le signal de synchronisation + le 
temps nécessaire à la lecture du titre. Voir ligne 310 ot le temps écoulé est 
calculé en unités de 20 ms ). 


Etant donné que la bobine de déroulement va tourner progressivement plus vite, 
le niveau " N " atteint par le compteur au bout du temps T est calculé au moyen 
de 1a formule ( approchée ) qui figure dans les lignes 320 et 490. 


Dans cette formule " R " est le rayon de la bobine de déroulement pleine; "D" 
est l'épaisseur de la bande pour une cassette C 60; LS 139 pour une C 90 Js 
et " L" est la longueur TOTALE du ruban magnétique, calculée depuis le début 
de la bande ( compteur à 000 ! ) jusqu'au commencement du programme pour lequel 
nous voulons calculer le niveau " N " atteint par 1e compteur. ( voir aussi les 
lignes 200 à 200 inclus ). 


La valeur de " L " est donnée par : Ll = T* V 1 * 2E - 2 * FI 


où " T " est le temps écoulé en unités de 20 ms calculé à la ligne 310; 

" V ' est la vitesse de la bande ( en m/s) et " F " un facteur de correction 
qui dépend de la cassette concernée - voir plus loin ( au départ, la valeur de 
" F" est de l.o, c'est pourquoi " F " ne figure pas dans la ligne 320 ). Le 
facteur" 0.6 " est le rapport de transmission entre la bobine de déroulement 
et le compteur ( il est possible que cette valeur soit différente pour une 
marque autre que le Philips N 2225 !). 
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"———— 


— — ——  Ó 


db 


- 














ETETB [7 e D0-07 Date bus (SAB 8080 side) 
HLDA CT DESCR Data bus (system side) 
WA UO | 1/0 read 

170 1/0 write 
OBIN MEMR Mamory read 
DB4 MEMW Memory write 
D4 OBIN DBIN (from SAB 8080) 
DB7 interrupt acknowledge 
D7 HLDA (from SAB 8080) 
083 WR (from SAB 8080) 
D3 BUS EN Bus enable input 
DB2 STSTB | Status strobe (from SAB 8224) 
D2 Vec +5 suppiy voltage 
Dae GND | Ground (0) 
GND 

fig. 3.9b 


Bij de 8080 is de algemene vorm van dit voortzettingsadres 11...111 
zodat 8 mogelijkheden voorhanden zijn, RST (restart) 0 tot 7 genaamd 


met respectievelijk adressen 0, 8, 10, 18, 20, 28, 30, 38H (vectoren]. 


Indien slechts één vector nodig is, volstaat het de INTA uitgang 
via een 1KQ weerstand te verbinden met «12V. Hierbij wordt auto- 
matisch een RST7 instructie gegenereerd op de databus bij een 
DBIN=1 op het ogenblik van de interrupt aanvraag. 
Tijdens To wordt nagegaan of er een READY is, een HOLD of een HALT. 
Na T2 volgt : Ty : indien READY=0 

TH : indien een HOLD aangevraagd werd 


TwH: indien een HALT instructie gegeven werd. 
Zoniet volgt : 


Gedurende de periode T3 wordt de instructie ingelezen en ingeschre- 

ven in het instructieregister (IR) en tegelijkertijd in het voorlo- 

VA LE (IMP : temporary * voorlopig) dat toegang verleent tot 

e : 

Inschrijving in het instructieregister (IR) is nodig om de instruc- 

tie te kunnen doorgeven naar de instructiedecoder die de instructie 

zal decoderen en zal bepalen welke de verdere operaties zijn. 

De inschrijving in het TMP register is nodig omdat de microprocessor 
op dit ogenblik (vóór de decodering) nog niet weet of hij de inhoud 


van dit register nog nodig heeft om de instructie verder te kunnen 
afwerksn. 


Vermits de instructie MOV r4,T2 een verschuiving (transfert) van 

het register SSS (source) naar het register DOO (destination) dient 
te verwezenlijken, wordt gedurende T4 de inhoud van het bronregister 
naar het TMP register gebracht. Oe oorspronkelijke inhoud van TMP 
gedurende T3 gaat daarbij verloren. Bij deze instructie dient de 


microprocessor er inderdaad niet meer over te beschikken. 


Gedurende deze laatste periode wordt de inhoud van het TMP register 
naar het DDD register gebracht en is de instructie afgewerkt. 


Voorbeeld van een instructie met twee machinecycli 


MOV r,M 
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Deze instructie realiseert het transfert van de inhoud van een geheugen- 
cel M, waarvan het adres zich in het HL register bevindt, naar een regis- 


ter r. 
De opdracht bestaat uit 2 machinecycli, onderverdeeld in 4, respectieve- 


lijk 3 periodes. Oe eerste noemen we de haalcyclus (fetch) en de tweede 
de uitvoeringscyclus (exeeute). 


PC OUT, STATUS | PC=PC+1 INST>IMP/IR E: 


De machinecyclus M4 verloopt zoals bij de vorige instructie voor wat be- 
treft de periodes T4 T5 Ta. | 

De periode T4 is een periode die wel bestaat maar alleen inwendig door 
de microprocessor gebruikt wordt voor de decodering van de instructie 
bijvoorbeeld en de bepaling van het aantal bytes. Uitwendig is hiervan 
niets waarneembaar. 

Gedurende machinecyclus M2 wordt de in T4 van voorgaande cyclus bepaalde 
status uitgegeven naar de decoder van de controller 8228 (memory read). 


De programmateller blijft ongewijzigd. 
Het adres van de geheugencel M dat zich in het HL registerpaar bevindt, 


wordt op de adresbus gezet. 
T2 en T3 van M vormen de geheugen subcycli; gedurende To wordt de geheu- 
gencel M gelezen en tijdens T4 wordt de inhoud naar het bestemmingsregis- 


ter DDD gebracht. 















Voorbeeld van een instructie met drie machinecycli 


LXI rp,data 


Deze instructie laat toe een 18 bits datawoord of een 16 bits adres in 

te schrijven in een registerpaar. Deze instructie kan gebruikt worden 

om een adres bijvoorbeeld in het registerpaar HL in te schrijven. 

De machinecyclus M4 verloopt volledig identiek aan die van voorbeeld 2. 
Gedurende de machinecycli M en Ma worden ult het programmageheugen 2 
bijkomende bytes By en B4 gelezen die respectievelijk de 6 minst bedui- 
dende bits en de 8 meest beduidende bits uitmaken van de informatie die 
dient ingeschreven te worden in het registerpaar. De minst beduidende 
byte van een informatie moet in rg geschreven worden en de meest beduiden- 


de byte in rp. 


PC OUT, STATUS PC=PC+1 B2-r4 
` 
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3.3.2. Onderverdeling van de machine cycli 

Een machinecyclus wordt verdeeld in minimum 3 en maximum 5 periodes van 
de besturingsklok, naargelang de instructie waar hij deel van nme. 
(T_}. Hieraan kan T, worden toegevoegd wanneer de microprocessor in 

een WAIT toestand staat als gevolg van een niet READY. T wordt toege- 
voegd wanneer de microprocessor een HOLD verwerkt en T wanneer de a = 
processor wacht op een interrupt als gevolg van een HALT — 
Ty. TH en iw kunnen meerdere kloktijden bevatten en worden ingelast na | 
T2 van elke machinecyclus (indien nodigl. 

a Se aktiviteiten van de microprocessor te kennen gedurende deze cycli, 
SE en we de volledige instructieset, die we pas verder in dit deel be- 
u. — Kennen. Om een en ander te verduidelijken zullen we 
"Eds en met 1 machinecyclus, één van de groep met 2, 
machinecycli in pa ee DISHES SUD EUH D 


Voorbeeld van een instructie met één machinecycius 


M 

OV ZZ 

— instructie realiseert een verplaatsing (transfert) MOVE van informa- 

E e van een bronregister (SSS) r2 naar een bestemmingsregister (DDD) r4. 
e enige machinecyclus bestaat uit 5 klokperiodes T4 tot Ts. 


De aktiviteiten gedurende elk van d 
eze klokper 
samengevat worden. periodes kunnen als volgt 


PC out, Status | PCsPC«1 INST + TMP/IR (SSS) + IMP (TMP) + DOD 





De betekenis van de in deze Samenvatting gebruikte afkortingen zijn : 


T, Gedurende deze klokperiode wordt het adres aanwezig in de programma- 
geg Op de adresbus gezet (PC OUT) via de adresbuffer.  Tegelijker- 
: jd wordt de STATUS uitgegeven op de databus. Door decodering van 
eze statussignalen (tijdens T2) zal het mogelijk zijn de signalen 
nt de controlebus te vormen die nodig zijn om de doorverbindingen 
ussen de verschillende schakelingen te maken, zodat de betreffende 
machinecyclus naar behoren kan uitgevoerd worden. De status van 
Sei — machinecyclus (M4J van een instructie is ten allen tijde 
CH, d.w.z. een cyclus die de instructies zal lezen uit het 
programmageheugen en ter behandeling inbrengen in de microprocessor. 


2 Gedurende deze periode wordt de programmateller losgekoppeld van de 
adresbuffer en vervolgens met één verhoogd (PC=PC.). Hierdoor staat 
de teller klaar om de volgende instructie of de volgende byte van 
een meerbyte instructie te lezen. Tevens wordt de status gedeco- 
deerd om de signalen van de controlebus te vormen. Om deze deco- 
dering mogelijk te maken, dient er een decoder geschakeld te worcen 
op de databus. Deze decoder bestaat onder de vorm van een speciale 
schakeling (system controller/bus driver 8228). 
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Zoals uit fig. 3.8 blijkt, ontvangt deze schakeling ce databusuit- 
gangen van de 8080 die gemultiplexeerd zijn tussen gegevens en 
status. Met behulp van een signaal STSTB (status strobe}, afgeleic 
van 84 SYNC kan de status in de 8226 vergrendeld worden en verder 
gedecodeerd om de 5 controlesignalen te vormen. 

Een functioneel schema van de 8228 met aansluitgegevens geeft fig. 
3.9a en fig. 3.9b. 

Het STSTB signaal wordt opgewekt door een afzonderlijke bouwsteen 
clock driver (8224) en wordt laag gedurende #4 van elke T5. 

De controlesignalen MEMR, I/OR en INTA worden gegenereerd, gebruik 
makend van de desbetreffende statusbits aanwezig in de vergrende- 
laar [status latch) en het DBIN signaal afkomstig van de processor. 
De controlesignalen MEMW, I/OW maken gebruik van het WR signaal. 

De 8228 bevat eveneens een bidirectionele busdriver zodat een groot 
aantal geheugens en 1/0 bouwstenen aangeschakeld kunnen worden 
(typisch 15mA i.p.v. 1,9mA). Deze busdriver wordt gestuurd door de 
status decoder voor input of output bewerkingen (DBIN,WR) voor iso- 
latie van de systeem databus bij het verwerken van de status, als- 
ook bij een HOLD aanvraag (databus ¿-state). 

Het BUSEN ingangssignaal (indien hoog) zet de ganse bouwsteen in 
3-state. 

Het INTA signaal kan gebruikt worden om een input poort te selecte- 
ren bij een interruptverwerking. Hierdoor kan een 8-bitswoord in- 
gelezen worden dat als voortzettingsadres geïnterpreteerd wordt 


door de microprocessor. 

















à à 
3080 o Bi-directional 08. 
D. irectiona : DE 
Data 0, bus driver — System data bus 
D: 08, 
bus o. =. 
H | o. 
| Driver control 
Ee | MEMR 
Status as MEM W 
ich SNS 
VOR 
|__| Gatng f 
array ; 
no | SUSER 
HLDA | NTA 
fig. 3.9a 
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3.3. Behandeling van een instructie door de microprocessor 8080 


Ote — — — À— mm wg e GA — — — — — — — — — — — — — — —— — —— — 


Een instructie wordt samengesteld uit minimum 1, maximum 5 machinecycli 
(Mn) uit de volgende tien. 


- De FETCH of haalcyclus. Hierbij wordt een instructie gelezen of opge- 
haald uit het programmageheugen en in de centrale verwerkingseenheid 
gebracht voor behandeling. Het is evident dat alle instructies begin- 
nen met een haal cyclus, hij krijgt derhalve de naam van machinecycius 
nr 1 (M1). 


-.De MEMORY READ cyclus is de cyclus die doorlopen wordt als de instruc- 
tie gebruikt,wordt voor een lezing uit het geheugen. 


- De MEMORY WRITE cyclcus is de cycius die doorlopen wordt als er dient 
geschreven te worden in het geheugen. 


- De STACK READ cyclus is eveneens een cyclus die leest uit het geheugen 
maar wel in een speciaal gedeelte van het geheugen, nl. het stapelge- 
heugen. | 


~ De STACK WRITE gaat gepaard met een schrijven van gegevens in het 
stapelgeheugen. 


- De INPUT cyclus betreft het lezen van informatie aangebracht door een 
periferie apparaat aan de ingangspoort van de microprocessor. 


- de OUTPUT cyclus betreft een schrijven in de uitgangspoort van een 
microprocessor om informatie over te brengen naar een periferie apparaat. 


- De INTERRUPT cyclus is:de.cyclus.die.de anderbrekingsaeapvraeg van bij- 
voorbeeld een periferie apparaat behandelt. 


~ De HALT cyclus doet de microprocessor wachten op een traag periferie 
apparaat of een traag geheugen of op een sein dat een andere processor 
geeft als deze zijn werkzaamheden beeindigd heeft (multiprocessing). 
Onder traag geheugen of traag periferis apparaat verstaan we die ele- 
menten die een datawoord kunnen verwerken of aanbieden in één periode 
van de klok. 
Een andere processor is bijvoorbeeld een schakeling die direct toegang 
heeft tot het geheugen (DMA : direct memory access) om met grote snel- 
heid informatie in of uit het geheugen te lezen. 


~ De HALT*INTERRUPT cyclus stopt de microprocessor met het oog op het 
behandelen van een interrupt aanvraag. 


Merken we op dat het begin van elk van deze machinecycli gesynchroniseerd 
wordt door het signaal SYNC dat de microprocessor uitgeeft. 

Door micdel van een B bits statuswoord op de databus geeft de micropro- 
cessor te kennen in welke machinecyclus hij zich bevindt. Deze status- 
informatie is beschikbaar in het begin van elke machinecyclus tijdens de 
SYNC impuls. 

In fig. 3.6 zien we dat gedurende de eerste klokperiode tijdens #.xSYNC 
de status beschikbaar is op de databus en gedurende de tweede klokperiode 
tijdens Ø, SYNC kan vergrendeld worden en gedecodeerd in een afzonder- 
lijke bouwsteen. 

Fig. 3.7 geeft een overzicht van de 10 statussignalen overeenkomstig de 
10 machinecycli met aanduiding van de 5 controlesignalen die hieruit 
kunnen verkregen worden door decodering. Zo bijvoorbeeld is de status 
bij een machinecycius 2; d.i. een leescyclus uit het geheugen, gelijk 

aan 10000010 of 82H. Dit kan gedecodeerd worden in een MEMR cöntrole- 
signaal. 
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De controlesignalen zijn aktief laag, waardoor een direkte verbincing 
mogelijk is met ROM, RAM en I/0 bouwstenen. 


eerste klokpertoce twauue Riokparioce 
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MITTIN EEE 
HOOF DPLAATSEN 
HH DH EHE EE EHE ELE LEE EE EEG EHE TTT TTT 


HEEEL 















AUTEUR: Marc Antrop - 1982 
VERSIE: oefenprogamaa (drill-and-practice) 







DOEL | 
Inoefenen en trainen van feitenkennis met betrekking tot adginistratief-bestuurlijke 
indelingen en hun hoofdplaatsen of zetels. 
















BESCHRIJVING 

Het menu biedt achtereenvolgens de keuze uit de moeilijkheidsgraad, het aantal gewenste 

oefeningen, het aantal herkansingen bij een foutief antwoord, de richting van de vraagstelling, 

en de snelheid, Met een aantal hulptoetsen wordt het gehele programma gestuurd, Na start (5) 

wordt het werkblad voorgesteld, Hierop worden nog eens de genuselecties getoond, Naargeláng de 

gekozen optie wordt een bestuurlijk gebied of hoafdplaats/zetel op gegeven. Een lopende cursor 

laat toe het juiste antwoord te selecteren (daor op SPATIE te drukken) uit een opgegeven lijst, 

Foutieve antwoorden worden meteen gemeld en een nieuwe keuze wordt aangeboden. Wanneer alle kansen 

verbruikt zijn, geeft de computer zelf het juiste antwoord en vraagt dit te herhalen. Wanneer het 

aantal gevraagde oefeningen beantwoord werden, wordt een evaluatie gegeven : score + foutenanalyse. 

Een tussenevaluatie kan gevraagd worden met de hulptoets (E), de oefening wordt verder gezet met 
hulptoets (V7. 









HB UBER HE ELE HUEBEEH TT TINTIN E EEEEEEEE ELE GG 
OPSPORINGSSPEL 
HUNT 















BUTEUR : Harian De Jaeger-1982 
VERSIE : oefenprogranaa onder spelvora 


DOEL 
Inoefenen van de geografische coordinaten NB, ZB, OL, WL 
onder spelvora, 


BESCHRIJVING | 

Het programa begint met een herhaling van de theoretische begrippen van de geografische plaatsbepaling 
op aarde: de halfronden en de afkortingen van de coordinaten. Dan volgt de uitleg voor het spel, Na het 
intypen van het eerste coordinatenpaar verschijnt de wereldkaart met de evenaar en de nulaerídiaan. 

De ingevoerde positie van de speler wordt aangeduid aet een vierkantje. De computer berekent nu het 
verschil in lengte- en breedteligging tussen die positie en de onbekende, toevallig bepaalde, positie 
van de *chef* die moet gevonden worden. Die resultaten verschijnen onderaan het beeld. Wanneer de opge- 

geven positie niet juist is, worden nieuwe coordinaten gevraagd. Men krijgt 3 kansen. 


HII HL EE IE ELEEEHTEL EE EL EE EE EL BEL BIETET ELTE EHE IEEE ELLE BEEE DEL EDH IBI BETT 
BRUTO NATIONAAL PRODUKT 2 
HH TTT EE BEDEUTET TELE EU UO UL 


AUTEUR: Marc Antrop - 1983 
VERSIE: consultatie 


DOEL 
Vergelijken van het Bruto Nationaal Produkt per inwoner van een aantal geselecteerde landen. 


BESCHRIJVING 
Het programaa bevat het BNP/inw. van ca.120 landen in data-arrays. De namen van de landen evenals het 
BNP/inw. wordt geladen van data-files die onsiddelijk na het hoofdprogransa op tape gesaved zijn. 
De landen worden in tabelvora voorgesteld en de gebruiker kan zijn keuze maken. Maximaal 20 landen kunnen 
geselecteerd worden, Na de keuze wordt nog een overzicht van de keuze in tabelvora gegeven. 
Die gegevens worden weergegeven in BF en voorgesteld in staafdiagraanen. 
De kleurkeuze hiervan gebeurt randoa 
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AUTEUR : Marc Antrop - 1983 
VERSIE : deno. 






DOEL 
Concreet voorstellen van de aangroeisnelheid van de wereldbevolking 







BESCHRIJVING l E 
Het programma maakt gebruikt van de UN-schattngen van de geaiddelde geboorte- en sterftecijfers van de 


wereldbevolking, Het aantal geboorten, sterften en de natuurlijke aangroei per seconde wordt hieruit 
berekend. De computer taont die groei per seconde vanaf de start van het programma. Na 60 sec wordt 
de teller onderbroken en worden alle resultaten nog eens in tabelvorm gegeven. 


Inmmmnſnmmnummũmm B BBñ iinnn iiiunun 
TERRITORIALE WATEREN | 
HII LEE HEEL EHE EHE E E LEE 


AUTEUR: Marc Antrop - 1982 , naar een idee van Eric De Jaeger 
en een uitwerking voor Apple door F.Guethals. 
VERSIE: deao 


DOEL 
Invloed nagaan van de kustlijnvora op de begrenzing van territoriale wateren a.b.v.d gediaanlijn, volgens 


de methode van Boggs. 


BESCHRIJVING 
Na de introductie geeft het programma de theoretisch grondslagen en de probleenstelling. 
In 5 fazen wordt de grenszee tussen de verschillende landen verdeeld, De kustlijn van het 
onderste land blijft constant, de kustlijn van het bovenliggend continent verloopt volgens een 
sinusoide, waarvan het aaplitude aet iedere fase toeneent. De grenslijn wordt bepaald door de 
mediaanlijn en de oppervlakteverhoudingen van de verschillende zee-territoria wordt eveneens 
telkens gegeven. Als besluit worden de resultaten nog eens in tabelvora gesynthetiseerd, | 
Dit programaa berekent geen gediaanlijn oadat dit te tijdrovend is. De resultaten van deze berekeningen warden | 
echter in deze deno-versie gebezigd, 





DAI-gebruiker ... ? 

Leraar in het secundair of hoger onderwijs ... ? 

Voldoende ervaring met de BASIC-programmeertaal .... ? 

Nog geen lid van de werkgroep diDAIsoft...., dan mis je regelmatige con- 
tacten met collega's die jij wat te bieden hebt, maar waarvan jij vast en 
zeker ook wat kan opsteken, 


Geinteresseerd... neem conctact met Bruno Van Rompaey (016/461085) 
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HOTELS SHORT TEE DIID I EHE HEU EHE EGRE ECHELLE EE E UU UU 
UURGORDELS 
UGEET EHE HH HE STT OTT TTT BG 


BUTEUR : Marian De Jaeger-1983 
VERSIE : oefenprograama onder spelvora 


DOEL | 
Inoefenen van de begrippen plaatselijke tijd, uurgordels en datumlijn. 
Gebruik van de uurgordels os de plaatselijke tijd te bepalen. 


BESCHRIJVING 
Na een introductie begint het programma met een korte herhaling van de theorie. Vervolgens worden de 
instructies gegeven voor het gebruik en spelen, Dan verschijnt de wereldkaart mot de uurgordels en de 
datuslijn. De uurgordels zijn begrensd door rechte lijnen en hebben dus alleen betrekking op de 
plaatselijke zonnetijd en niet op de burgerlijke tijd. Door toeval bepaalt de computer een plaats van 
vertrek (aangeduid door V) en een plaats van aankoast (A op de kaart), evenals een vertrekdag, -uur en 
vluchtóuur. Men dient dan de dag en het uur (plaatselijke tijd) van aankoast op te geven. Bij een 
foutief antwoord krijgt een enkele nieuwe kansen. Bij een juist antwoord krijgt men een nieuwe opgave tot 


wanneer het vooraf opgegeven oefeningen is bereikt, Tot slot geeft het programsa een evalutie van het 
resultaat, 





ML PTETMMMHEEHTTRTRRETER 


SPREIDING VAN PUNT-OBJECTEN 


WAAT EH EU EHE EEUU EE GN 


AUTEUR: Marc Antrop - 1993 
VERSIE: demo 


DOEL 
De werkwijze voor het toepassen van een CHI-kwadraat-toets stap voor stap demonstreren. 


BESCHRIJVING 


De pc genereert eerst een (toevallig) 2-dimensioneel puntenpatroon.De probleezstelling is of die ruinteliike spreiding 


nu toevallig is of niet.Hiertoe wordt een CHI-kwadraat toets gebruikt.De verschillende berekeningsstappen worden 
getoond, evenals de te gebruiken formules.Na de berekening wordt een overzicht gegeven van de resultaten en van de 
hypothesen.De hesluiten dienen getrokken worden na consultatie van de statische tabellen. 






Hi 
LORENZ-CURVE 
IO HEEGDE HGH TTT OTTO EEG E EG E LU E 






AUTEUR: Marc Antrop - 1983 
VERSIE: deng 









DOEL 
Desonstreert de constructie en het gebrulk van een Lorenz-curve 







BESCHRIJVING 
Het progranaa geeft een menu voor een keuze van de demo-versie of de invoer van eigen gegevens. 
Deze versie springt steeds naar de deso die gebruikt maakt van de inkomens~ en bevolkingsverdeling 
tussen de rassen in Zuid Afrika: 

De probleemstelling is die van een gelijke verdeling van de inkomens tussen de rassen. In tabel 
worden de cijfergevens getoond evenals de noodzakelijke bewerking ervan oa de Lorenz-curve te 
construeren, Die grafiek wordt dan getoond. Het behelst eerst de cijfers van 1957. Dan wordt een 
nieuwe probleemstelling aangebracht, nl. of het vroeger slechter was dan nu. la een nieuwe tabel 
worden de cijfers van 1957 en 1935 gegeven. Hierna worden de 2 Lorenz-curven op elkaar getekend, 
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NATALITEIT-MORTALITEIT 
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AUTEUR: Marc Antrop - 1983 
VERSIE: demo + consultatie 









DOEL . . 
Cijfergegevens voorstellen in een 2 dimensioneel strooiingsdiagran. 
Dit toepassen op de bevolkingscijfers NATALTEIT en MORTLITEIT per land. 










BESCHRIJVING 
Het menu geeft 3 mogelijkheden: 
(1) een demo met de opbouw van het strooiingsdiagraa : hiervoor worden 

i een 20-tal landen voorgesteld, geselecteerd uit de verschillende hoofdtypes; 

een voorstelling van alle landen; de verschillende wereldelen of types worden 

door verschillende kleuren voorgesteld; 

(3) een voorstelling van landen naar keuze. 

De landen worden eerst talfabetisch en genuaserd) in tabel voorgesteld: naan, 

geboorte- en sterftecijfer. De keuze wordt gemaakt door het valgnuaner in te voeren: 

typ nummer (RETURN), De computer controleert dan of hij dat land in file heeft en 

of er cijfergegevens beschikbaar zijn. Een foutaelding volgt eventueel met en nieuwe 

keuzesogelijkheid. Ook wordt gecontroleerd of geen tweemaal hetzelfde land gekozen wordt, 
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GROEIMODELLEN 
tinniniiiinriirinnriiibiiiibiiiiiibidiiiridiiiiibiiiiiiiàinnrinnnrinnindriidiniinu 


AUTEUR: Marc Antrop - 1983 
VERSIE: deso aet de bevolking van Engeland en Wales 


DOEL " | | 
Vergelijking van verschillende groeiaodellen met de werkelijke bevolkingsgroei. 


BESCHRIJVING 
Het programma begint met een theoretisch overzicht van 3 grosinodellen : het sodel van Euler, 
het exponentieel groeiandel en het logistisch groeimodel, De parameters en de gebruikte syabolen 
worden toegelicht. Die andellen worden dan toegepast op de bevolkingsevolutie van Engeland en Wales, 
waarvoor er vanaf 1751 gegevens voorhanden zijn. In de grafische voorstelling wordt de beginpopulatie 
aan 100 gelijk gesteld. Tenslotte wordt de werkelijke bevolkingsgroei getekend en kunnen de verschillende 


groeisodellen geevalueerd worden. | | — — a 





1111111111021 lH 31H ETTI BELLE EEUEE EEUU — amumnu 


BEVOLKINGSBOM 
131119 ELE LEGE ELLE EHE EUHEEHEEHHEHHEHEEHEHLEHEEEHLEEHE EHE EEUU E EG UU E E GE OU FIAR III 


AUTEUR: Marc Antrop - 1983 
VERSIE: dean 


DOEL o | mE 
Figuratief voorstellen van de groei van de wereldbevolking in de geindustrialiseerde en 


ontwikkellingslanden, set als open vraag... de toekaast. 


BESCHRIJVING : . . | 
Voorstelling van de evolutie van de bevolking in de 2 grote wereldblokken sinds de Industriele Revolutie 


tot het jaar 2100. UN-schattingen. De voorstelling gebeurt in een dubbele staafdiagran, Na dat de | 
bevolkingsaandelen voorgesteld zijn, worden ook de aandelen van de werkende en niet-werkende bevalking 


gegevens. Het prograama eindigt aet 9222 
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-TRANSLATIONS-TRANSLATIONS-TRANSLATIONS-— 
FETLETLTETETLTETELTLTILTETELTITETETLTITLTLTLTLTLTLTATLTLTATITLTLTITLPITLTII 


760 DATA "FOLLOWING MANMER!- FIRST DEFINE! ü 
770 DATA "XG; (X AXIS) A NUMBER BETWEEN -3 AND 58" 
780 DATA "YO (Y AXIS) A NUMBER BETWEEN O AND 23 * 
790 DATA "ZG! (COLOUR) A NUMBER BETWEEN 6 AND 15 * 
806 DATA "G$t THE STRING (MAXIMUM 42 LETTERS) x 
810 DATA "AND THEN GIVE A GOSUB 200 id 
820 DATA “RARA AAA AAA 
S30 DATA "(XG--31YGz91 2G=71G%="DEMO GOSUB 200) * 


Power Supply & Overvoltage Protection 


(from DAlnamic 16, page 207) 


This circuit (see diagrams on page 207) and the fuse Fi prevent damage to the computer from the 
unregulated 22 volt DC in the event of a power supply fault, It will also protect the, until now 
unfused, power supply itself from overload, 


Should the supply voltage exceed its normal value hy mare than 0,9V the thyristor strikes and 
the fuse will blow. Construction can be on a small Vero board which will fit in front of the 
electrolytic capacitor C55 inside the power supply enclosure. The leads for the frame earth and 
the 22 volt input are connected to the main circuit board via two small drilled holes, On the 
component side of the main board runs a wide conductive strip and from this conductor the 45V 
can be lead to the protection circuit, At the same time these connecting leads hold the 
protection circuit board in place. The fuse is fitted next to the rectifier block BR1 by drilling 
four small holes for its holder, The U+ conductor strip from the rectifier BRI is cut and the fuse 
connected between the cut ends. 


À, Corswandt, 
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SOCIALE GEOGRAFIE 


ALGEMEEN OPZET VAN DE VERZAMELTAPE "SOCIALE GEOGRAFIE" 








De verzameltape bevat één kant met demonstratie-programma's en één met interactieve 
programma's. Naargelang de mogelijke didactische werkvormen kunnen volgende types 
onderscheiden worden: 
| = demo's met een inleidend karakter (vb;sfeerscheppend,...) 
- consultatieprogramma's die gekoppeld zijn aan een demo offen simula- 
tieprogramma 

- oefenprogramma's, meestal onder spelvorm. 
Hoewel alle programma's klassikaal gebruikt kunnen worden, zijn de oefenprogramma's 
specifiek voor individueel gebruik bedoeld. De meeste programma's bevatten een 
summiere herhaling van de theorie, evenals de noodzakelijke uitleg voor het begrijpen 


ervan en voor hun gebruik. 


De behandelde leerinhouden zijn eerder sporadisch genomen uit het geheel van de leer- 
stof Sociale Geografie. De volgorde van de programma's op de tape is evenmin ge- 
structureerd. Alle programma's moeten dus op zichzelf staande gezien worden, ook al 
zijn sommige verwant met elkaar. Ze geven ook geen banden met een of ander leerplan. 
De belangrijkste motivatie voor hun keuze berust bijhun didactische gebruiksmogelijk- 


heden. 


Inhoudelijk ligt het accent op de bevolkingsgeografie (groei,nataliteit,mortaliteit, 
groeimodellen,...), sociale aspecten die hiermee verwant zijn, spreidingsproblemen 
en enkele speciefieke problemen Ttijdzones, territoriale wateren,..). Verschillende 
grafische voorstellingswijzen evenals wiskundige modellen en statistische technieken 


worden aanschouwelijk toegepast en gedemonstreerd. 


Het niveau is vooral gericht op de 3de graad van het Secundair Onderwijs (determinatie) 
Een aantal oefenprogramma's in spelvorm worden daarentegen reeds succesvol gebruikt 


vanaf de leeftijd van de 1ste graad SO (observatie). 
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NEGATIVE CURSOR 


DAT VIDEO HARDWARE -Sharper pictures in Black & White (from DAInamic 16, page 178) 


(from DAInamic 16, page 164) 
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Working with the DAI in combination with a normal TV seems a very fatiguing task so I have q 2 EM PS M SD pace 
been trying to achieve some improvement, Working with text is worst as 64 characters per line 140 GOTO 400 
are too many for a normal TV and in addition the characters do not remain perfectly still. The 200 REM HH OUTSIDE THE MARGIN SUBROUTINE 
letters Flutter and appear ragged, particularly with some colour combinations.If the screen is 210  IC-&BFEE-(23-YP #86)! POKE IC,208+2P 
filled with repetitions of the same letter a diagonal striped pattern can be seen; it gives the 215 IF YEDO THEN FOKE IC-496,208 
impression of a curtain of flowing water. It is possible to achieve economically a satisfactory 220  FORIXs0 TO LEN(G$)-1! T$-MIDSQS,IX,1) GX=ASC(TS) 
picture with a black and white monitor and some simple modifications to the DAI printed circuit, 230  IP-&BFE7-(23-YPHHEB5)-UCP32)? POKE IP,GX 
but before I describe that I will report my unsuccessful attempts, 240  XP-XP4 NEXT 
. 250 RETURN | 
- With the colour TV: My Blaupunkt FM 121 has an IC, TDA 3300, which has extra RGB 300 DEN He GETC ROUTIN 
connections (pins 24, 25 & 24) and pin 23 which is presumably for switching, but I was unable to 310 CURSOR 0,0! PRINT SPC(58N! POKE 475,95 | 
Find anyone who knew how to make use of the facility, 370 CURSOR 10,0! PRINT "PRESS A KEY TO CONTINUE": 
- Improving the DAI video card! Using the article by Anton Doornenbal (DAInamic March/June Se EU A ee s — #50)+50) 
1982) I first changed the connections of the ZN 134 (interlace) which gave a small improvement 350 WAIT TIME 3: SOUND OFF! G=GETC! G-GETC: G-GETC 
but I decided that, not being an electronics man, I lacked the skill to accomplish the other 3550  GeGETCIIF Gef THEN WAIT TIME 31 I=1+13 IP 1€20 THEN 340 
changes recommended for bandwidth alterations, 270 ` fett IF G=0 THEN 330 
- Use of a black and white monitor? I bought a second-hand Hong Kong set and sought advice Sen Ce — TURN 
from Anton Doornenbal who provided the monitor connections described below. Both DAI and 410 MODE 0: COLORT 8 0 8 8! PRINT CHRSU2IN POKE 475,32 
monitor now work well together. It matters little whether or not the interlacing modifications 420 CURSOR 55,7! ZP=-1} FOR I=0 TO 231 XP=-3+1) YP=23-1 
have been done. The diagonal pattern would seem to be due to the colour pulse being switched in 430  G$-"DEMONSTRATION OF NEGATIVE CURSOR" 
the receiver for colour recovery, but with a black and white monitor this pulse is superfluous. 440  1P=1P+1! IF ZP-15 THEN ZP=0 
BLACK & WHITE MONITOR CONNECTIONS en — EI de 
. The diagram on page 165 shows the PAL video card with some of its main components, 470  GOSUB 300! RESTORE 
| : 500 PRINT CHRS$(i12)}} COLORT 8 0 & 8; CURSOR 55,7 
T RARES NN " | 510 FOR YP=23 TO 1 STEP -1! READ G$! ZP=0 
Fit the socket for the monitor lead at the position shown shaded on the diagram. Connect the 520  XP-INTGSRNDUD IP RND0OD5 THEN XP=XP#t-1) 
outer sleeve of the socket to the modulator casing GND) Connect the the centre conductor of 530  GOSUB 200! NEXT 
the socket to the VIDEO signal pin. The offending colour pulse is killed by short-circuiting the 540  GOSUB 300! GOTO 400 
4,4336 MHz crystal with a small switch (SW), Make a small hole in the cover of the DAI so that &00 REM 
the switch can be operated by a pencil through the hole, thus allawing a colour TV or a monitor £10 DATA "DEMONSTRATION OF A NEGATIVE CURSOR" 
to be used, 520 DATA RR 
— 630 DATA "THIS PROGRAM DEMONSTRATES A SUB-  " 
£ ¡BM connections . | 640 DATA "ROUTINE IN WHICH A NEGATIVE CURSOR * 
With this method the crystal is not impeded, The monitor socket is connected by a short 650 DATA "WILL BE USED. A PARTICULAR STRING " 
screened cable to a transistor stage (see sketches on page 164). This transistor, a BFY 55 or 860 DATA "IS TO BE PUT ON THE SCREEN AT THE " 
2N2219, and the two resistors with it are mounted on the solder side, approximately underneath 570 DATA "REQUIRED PLACE, JUST AS ONE DOES N 
Tri, The cable screen is soldered to an earth point as near as possible to the transistor. We now 580 DATA "WITH A CURSOR STATEMENT, THE BIG " 
have a tapping from the video signal, raised to the required level of 1 Volt, 590 DATA "DIFFERENCE IS THAT X-VALUES OF TO m 
| 700 DATA "-3 CAN BE USED. THERE IG ALSO THE a 
Those wishing to read more about the working of a similar video card, using the LM 1889, can 710 DATA "POSSIBILITY OF COLOURING THE LINES * 
refer to an article in ELEKTUUR No 231 of Jan 1983, E Note? Elektuur is a Dutch language 720 DATA "BY CALLING THE SUBROUTINE AND " 
version of the magazine which is on sale in the UK under the name ELEKTOR 1 730 DATA "GIVING VARIABLE ZG A VALUE BETWEEN " 
740 DATA "O AND 15, (Gei ACHEN, " 
Geert Hospers (with thanks to A. Doornenbal) 750 DATA "THIS SUBROUTINE CAN BE CALLED IN THE " 
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PO BEE) RER 


treiseig 


9i CH'zGETCi IF CH'=0 THEN 82 
ez CHI=CH!-48 

90 IF CH1 OR CH4 OR CH'OINTUH?) THEN 81 

100  IFCH'-4,0 THEN PRINT CHR&1Z) END 

110  GOSUB 15001 GOSUB 160 

120 — Y'z22,001PO0R Kei TO NS'NAS(K)=S$(KNCURSOR 2, Y PRINT ASQOTY !z Y!-1,0:28EXT 
130 — NE-0! NC=0! CURSOR 20,221 PRINT "# ITEMS ="{NS! CURSOR 20,211 PRINT "# COMPARE 
="*NC} CURSOR 20,203 PRINT "4t EXCHANGE ="¡NE 

140 ON CH! GOSUB 310,400,540 

150 CURSOR 0,12: PRINT "SORT LIST AGAIN <Y/N>" 

1581 RFI=GETCIIF RF!=0.0 THEN 151 

152 RFS=CHR#RF!' GOTO 20 

i150 IF LEFTS(RF$,1)="Y" THEN 250 

170  N8$-"10": PRINT "How many items to be sorted (MAX Si: 
171 NS'=GETC!IF N8'-0,0 THEN 171 

172 NS=NS'-48,03 IF N8X2,0 OR N9>10,0 OR NSCHINTINS) THEN 171 
173 PRINT NS 

180 — Fi$z"C"! PRINT "Provided by (User or (Clomputer" 

181  Ri!'sGETCiIF R11=0,0 THEN 161 

182  Ri$-CHR$(Q1) 

i90 IF LEFTS(R1$,1)="0" THEN 240 

200 = R$="N"} PRINT "(Numbers or (L)etters" 

201  RI!'SGETCiIF R!=0.0 THEN 201 

202 R$=CHRS$IR) 

203 IF R$-"L" OR R$-"N" THEN 210 

204 GOTO Z0i 

210 FORK=1 TONS 

220 IF LEFTS(R$,1)="L" THEN S$UO-CHRSONDGO,0R65,0) 
222 IF LEFT$(R$,1)-"N" THEN Gë CH RGL RR DL 0.0)+48,0) 
Z30 NEXT: GOTO 250 

240 GOSUB 1500! PRINT "Maximum 1 character per item"! FOR K=1 TO NS} PRINT "ITEM #5 
Kr = $: b 

241 'IZGETCiIF $'=0.0 THEN 241 

242 mai) PRINT SHEN NEXT 

250 — RF$z"N": GOSUB 1500 

250 RETURN 

270 CURSOR 0,121 PRINT "Press a key to proceed" 

271 IF GETC=0 THEN 271 

290 CURSOR 0,12! PRINT SPCG1) 

300 RETURN 

310 CURSOR 9,233 PRINT "-BUBBLE SORT-"; GOSUB 270 
320 FOR Li TO N5-1 

330 FOR J-Ir1 TONS 

340 — X«IHY-J! GOSUB 7101 IF A$(D<=A$(J) THEN 360 

350 GOSUB 730 

350 NEXT S 

370 NEXTI 

380 | CURSOR 0,13! PRINT "SORTING ENDED....":GOSUB 270 
370 | RETURN 

400 CURSOR 3,23! PRINT " -DELAYED Di RE 270 
410 Jett R01 1-0 

420  IsI41 

430  IPI-NS THEN 320 
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440 deii R=J+1 

450 X= Pi TeRi GOSUB 7101 IF As(R)>=ASW) THEN 470 

460 JR 

470 ` R=R+1 

430 IF Ri=NS5 THEN 450 

490 IF I=J THEN 420 

300 GOSUB 750 

310 GOTO 420 

520 CURSOR 0,13: PRINT "SORTING ENDED.."} GOSUB 270 
230 RETURN 


:940 CURSOR 7,231 PRINT "-SHELL-METZNER SORT-": GOSUB 270 


350 M=NS 
«50 M=INT(M/2,0) 
370 IF M=0.0 THEN 690 


230 P=NS~M 
370 Hei 

£00 I=H 

610 J=I+M 


620.  XsIi Yalı GOSUB 710: IF AS(I<=AS(T) THEN 460 
630 GOSUB 750 


740  i-I-M 
650  IPI»-i THEN 510 
560 H=H+i 


570 IPF HOP THEN 560 

£50 GOTO GO 

690 CURSOR 0,13) PRINT "SORTING ENDED..."3 GOSUB 270 

700 RETURN 

710 NC=NC+i} CURSOR 35,21) PRINT NC. 

720 CURSOR 5,23-X: PRINT CHR$1136) CURSOR 5,23-Y: PRINT CHR$(136)% CURSOR 0,01 
WAIT TIME 50 

730 CURSOR 3,23-X: PRINT " “¿CURSOR 5,23-Y: PRINT " " 

740 RETURN 

750 | FOR K-2 TOS STEP 2 

760 CURSOR K,23-1: PRINT " "1 CURSOR K+2,23-1 PRINT AS 

770  CURSOREK,23-J: PRINT nu CURSOR K+2,23-3: PRINT A$(T) 

780 WAIT TIMES: NEXT K 

790 CURSOR 10,23-1i PRINT " "1 CURSOR 12,23-1! PRINT AHI): DF=T-1 
800 POR Hai TO DF 

210 CURSOR 12,23-UI*K.-1)! PRINT " "; CURSOR 17,23-(I+K) PRINT AS) 
920 CURSOR 0,0: WAIT TIME 20 

G30 CURSOR 10,23-( -K 41)? PRINT " ni CURSOR 10,23-(J-K) PRINT ASG) 
940 NEXTE 

850 FOR K=12 TO 4 STEP -2 

960 CURSOR K,z3-Ji PRINT " "t CURSOR (K-2),23-Jt PRINT AGO) 

870 CURSOR K,23-I? PRINT " "3 CURSOR (K-2),23-1i PRINT A$(T) 

880 WAIT TIME 5: NEXT K | 

870 NE<NE+1} CURSOR 35,201 PRINT NE 

900 TEMFS=ASTN ASIRASINNMN AS(T)=TEMPS 

910 RETURN 

1499 GOTO 1499 


1500 MODE 0: PRINT CHR$02) FOR X'-$BFEF TO #BA2D STEP -#96 POKE X!,46A!i NEXT! 
RETURN 
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6010 

6011 

5020 
6030 
6040 
6050 
6050 
6070 
6080 
6090 
6100 
6110 
6120 
5125 
6126 
6127 
6128 
6129 
6130 
6140 
6150 
6160 
6170 
5180 
6185 
5190 
6200 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7111 
7112 
7120 
7130 
7140 


PRINT "This program draws an outline plan and allows it to be " 
PRINT "rotated, enlarged or reduced, with the help of the cursor " 
PRINT "keys and with 1,2,<,> and /"¡PRINT 


PRINT CER$(136)" 3 rotate to the left +X2" 
PRINT CHR$1 373" ! Rotate to the right wé EN 
PRINT CHR$(94)" 1 Tilt backwards EN 
PRINT CHR$(140)" } Tilt forwards -Y2" 


PRINT "1 i Turn clockwise +XY" 

PRINT "2 ! Turn anticlockwise -XY" 

PRINT "> t Enlarge (don't use Shift) +Y" 

PRINT "€! Reduce (don't use Shift) -Y1" 

PRINT "/ 1 Step back to the original figure in reverse order" 

PRINT "H $ HELP routine, displays the various commands" 

PRINT "8 t Magnitude of turning angle, Input with cursor keys, RET." 
PRINT "C i Change} invert the colours" 

IF A%=ASC("H") THEN 6170 

PRI 


PRINT "IN THE DATA SET : NP = Total number of nodes" 
PRINT SPC(18)}"NL = Number of lines" 

PRINT SPC(1 8))"x1,y1,21,x2,y2,22,- Node cordinates" 
PRINT SPC(18))"b1,e1,b2,82,- begin/end of line 1,2 etc" 


PRINT "The program begins when a key is pressed "j 
COLORT 51500 

IF GETC=0 THEN 6190 

MODE bt RETURN 

REM STATEMENT 

COLORT 5 5 5 5: MODE 0: PRINT CHR$(12);: CURSOR 0,15 


PRINT "00000 000000 000000 0 00000 0000000" 
PRINT " 0 D 0 d 0 0 0 0 0 " 
PRINT " 0 0 0 d D 6 0 0 o " 
PRINT" 0000 0 0 000 00000 0 0 0 0 " 
PRINT " 0 0 D d 0 0 0 Q 
PRINT " 0 0 d 0 0 0 0 ó H 
PRINT "00000 000000 000 0000000 00000 000 * 
COLORT 5 15 0 0? RETURN 

DATA 43,49 


REM xi,yi,zi,x2,y2Z;12 «+. node coordinates 
DATA 760,0,-50,20,0,-50,-60,0,50,-50,40,-50 
DATA 20,0,- 10,20,40,-50,60,0,50,-60,40,50 

DATA -20,70,-40,60,0 n 10,20,40,-1 0,20,40 530 
DATA 40,30,50 ,720,70,40,50,30,-1 0 

DATA —50,0,-50,-50,25,-50,-35,25,-50,-35,0,-50 
DATA -20,1 0,-50,-20,25,-50,1 0,25 ,-50,1 O, 1 0,-50 
DATA 20,10,-40,20,25,-40,20,25,-20,20,10,-20 
DATA 30,0,-10,30,23,-10,30,23,-10,50,0,-10 

DATA 60,10,10,50,25,10,50,25,30,60,10,30,0,0,0 
DATA -45,3,-50, —45,5,-90, -39,9,-50, -39,3,-50 
DATA -40,12,-52, -37,12,-52, -37,12,750 

REM b1,e1,b2 ... beginnings and ends of the lines 
DATA 1,2,1 13,1 ,5,2,9,2,6,3,7 12,8,4 ‚6 

DATA 4,9,4,9,5,10,5,11,5,9,5,12,7,10,7,13 


158 DAInamic 84-22 


NETTE ee SUUM 
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7150 
7160 
7170 
7180 
7190 
8000 
8010 
$020 
$030 
8040 
8050 
8050 
8070 
8080 
8090 
8100 
8110 
8111 
$112 
8120 
$130 
8140 
$150 
$160 
9170 
8180 
9190 
9999 
10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 


DATA 8,12,8,14,9,14,10,15,11,15,12,12,12,14,13,15 
DATA 15,17,17,18,18,19,20,21,21,22,22,23,23,20,24,25 
DATA 25,26,26,27,27,24,28,29,29,30,30,31,32,33 
DATA 33,34,34,35,35,32,36,37,37,38 

DATA 38,39,39,40,40,37,41,42,42,43 

REM NP,NL Number of nodes/lines 

DATA 43,49 

REM x1,y1,21,x2,y2,12 «> node coordinates 

DATA -60,0,-50,20,0,-50,-50,0,50,-50,40,-50 

D AT A 20,0,- 1 o ¿20 540 1-30 160,0 130 760,40,50 

DATA 720,70,-40,50,0,-10,20,40,-10,20,40,50 

DATA 50,30,50,-20,70,40,50,30,-10 

DATA -50,0,-50,-50,25,-50,-35,25,-50,-35,0,-50 
DATA -20,10,-50,-20,25,-50,10,25,-50,10p10,-50 
DATA 20,1 0,-40,20,25,-40 :120,25,-20,20,10,-20 

DATA 30,0,-10,30,25,-10,50,25,-10,50,0,-10 

DATA 40,10,10,40,25,10,60,25,30,60,10,30,0,0,0 
DATA -45,3,-50, ~46,5,-50, —739,5,-50, -39,3,750 
DATA -40,12,-52, -37,12,-52, -37,12,-50 

REM b1,e1,b2 ... beginnings and ends of the lines 
DATA 1,2,1,3,1,4,2,5,2,0,3,7,3,8,4,5 

DATA 4,8,4,9,5,10,5,11,6,9,6,12,7,10,7,13 

DATA 8,12,8,14,9,14,10,15,11,15,12,13,12,14,13,15 
DATA 15,17,17,18,18,19,20,21,21,22,22,23,23,20,24,25 
DATA 25,26,25,27,27,24,28,29,29,30,30,31,32,33 
DATA 33,34,34,35,25,32,36,35,37,38 

DATA 38,39,39,40,40,37,41,42,42,43 
END 

REM STATEMENT 

COLORT 55 5 51 MODE 0! PRINT CHR$02): CURSOR 0,15 


PRINT "00000 000000 000000 0 00000 0000000" 
PRINT * 0 0 0 0 0 0 0 0 0 " 
PRINT " 0 0 0 0 0 0 0 0 9: m 
PRINT * 0000 (0 0 000 00000 à 0 0 o. + 
PRINT * 0 0 0 0 0 Q d Oo " 
PRINT * 0 0 d 0 d 0 d 0 H 
PRINT "00000 000000 000 0000000 00000 600 " 


COLORT 5 150 0! RETURN 


SORTING DEMO. 
(fram DAInamic 15, page 152-163) 


1 

10 
15 
19 
20 
30 
31 
32 
40 
30 
80 


CLEAR 1000! DIM 5$(10,0),4$(10.0) 

REM SORTING DEMO 

COLORT 80881! RF$="N" 

FOKE 475,32 

GOSUB 1500 

PRINT * # VISISORT 4" 

ien TAB(20);"Bert Maertens"¡FOR SX!=1,0 TO 37 OAS=AS+CHREGSHNEXTIPRINT AS 
PRINT SPRINT" 1) BUBBLE SORT'SPRINT " 
PRINT" 3) SHELL-METZNER SORT PRINT " 
PRINT SPRINT "Your choice !" 


2) DELAYED SORTING" 
4) END PROGRAM" 
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ROTATING BUNGALOW 
{from DAlnamic 16, page 158-160) 


810 IF CF%=0 THEN COLORG 0 15#(1-Q%) 150% 15% GOTO 812 
811 COLORG 15 15#Q% 15-0415 0 
9812 RETURN 


i REM Hidde HA EEE SEERA EES SE 850 OT%=QT%+Li IF AT%<15 THEN DRAW 205,1 300,5 151: DRAW 303,6 300,1 15! RETURN 

2 REM sang 3D PLOT VERSION 19.46.82 Hett 881 DRAW 305,1 300,6 0: DRAW 305,5 300,1 0: IF OT%<30 THEN RETURN 

3 REM ans A. VINGERLING, ROTTERDAM ### 882  Q'TI'4-0i RETURN 

4 REM WHERE HIERIN HEERE RIAA AA 900 FOR 00%=1 TO Mi KONE VPAX (QS: (OO, VERT 00% 200% =VF#HZ 00% NEXT: 
100 CLEAR 7750! PRINT CHR$( 2) GOSUB 7000: GOTO 103 RETURN 

101  COLORT 51500: MODE 0: CURSOR 13,12 2000 REM READ DATA 

102 PRINT "INITIALISATION, PLEASE WAIT" 2005 POKE #75,32! CURSOR 0,5: PRINT "Reading in data”; 

103 SF=1,0 GOSUB 2000! REM READ DATA E du en 

104 GOSUB 60001 REM DISPLAY POSSIBILITIES 2010 XC%=165 YC 521271 O%=1 

120  COLORG 150 15 0: MODE 6: MODE & 2020 READ NP%‚NL%: PRINT 1,0 

i30  GOSUB600! REM DRAW NEW PLAN 2030 DIM X(NP%),Y(NP%),Z(NP%) 

140 GOSUB 810! REM CHANGE COLOUR 2040 DIM XXINP%)YYINP%) ` 

150 GOSUN 7001 REM DELETE OLD FLAN 2050 DIM LA%(NL%,LBGINL Nh A À AU 00,0) 

160  Q%=1-O%! KS=ABSIKS) 2040 FOR P%=1 TO NP»! READ X(P%),V(P%),2(P%) 

170 IF FL%=1.0 THEN 210 2070 ` UD, ki (EG 

180 — AW-GETCIGOSUB 8801 IF A%C16 THEN 180 2080 Y(P%)=(Y(P%)-20.0)45F 

190 IF A%=ASC("H") THEN GOSUB 4000: GOTO 130 2090 ` LP ei (EI app 

200 GOSUB 50001 ON P210% GOTO 210 2100 CURSOR 20,5 PRINT NP%-P%5 NEXT 

205 IF A*-ASCU/'") AND AA%=0 THEN 186 2101 CURSOR 15,5: PRINT 0,0 

205 GOTO 730 2110  FORL*-1 TO NL%! READ LA%(L% HLB %(L%) 

210 — P210*z0i IF AA%>0.0 THEN AWZAAAS(LAS AAA Lt GOTO 230 2111 CURSOR 20,51 PRINT NL%-L%j NEXT 

220 | AA% =O} FL'4z0: GOTO 180 2120 POKE $72,95! RETURN 

230 IP A%=AS5C(",") THEN VF=1,0/0.81 GOTO 250: REM > 4000 | GOSUB 6000! MODE bi FF=1,01 GOSUB 900: RETURN 

240 ` VF-O.8: REM < 5000 IF A%=47,0 AND 4A%>0.0 THEN FL%=1! GOSUB 800: P210%=1; RETURN 

250 IP A%=ASCU'1") THEN A%=11 GOTO 280 5010 IF A%=47 AND AA%=0 THEN RETURN 

260 IF A%=ASC("2") THEN A%=23 GOTO 280 S018  AA%rAAR+I 

770 TF A%<=19 THEN A%=A%-13 5020 IF A%=49 THEN AAA%(AA%)=503 GOSUB 800: RETURN 

580 FOR P=1,0 TO NP! XX(P)IE XO YY (P)Y(PH NEXT S030 IF A%=50 THEN 444%1(44%)=49 GOSUB 800$ RETURN 

290 IP A*-ASCU,' OR A%=ASC(",") THEN GOSUB 900! GOTO 130 5040 IF A%=17 THEN AAA%(AA%)=14) GOSUB 800! RETURN 

300 IF A*20 THEN ON A% GOTO 320,330,400,410,500,510 5050 IF A%=16 THEN AAA%(AA%)=17! GOSUB 800! RETURN 

305 IF A%=ASC("C") THEN GOSUB 8001 CF%=1-CF% GOTO 130 3060 IF A%=19 THEN AAA'SULA GBSUB 800; RETURN 

310  GOTO 180 5065 IF A%=18 THEN AAA'S(A A GOSUB 800! RETURN 

320 KS=-KS 3070 IF A%=46 THEN AAA*SUAA 1:441 GOSUB 800: RETURN 

320 FOR P%=1 TO NPA! X=X(P%N Y YU X(P%)=eX+*+KC+YeKS) Y(P%)=Y+KC-X+K5: NEXT 3080 IF A%=44 THEN AAA'(AA*)z461 GOSUB 800! RETURN 

340 GOTO 130 9081 IF &4%=ASC("H") THEN MODE 0) GOSUB 6000} MODE Gr GOSUB 800! RETURN ` 

400 KS§=-KS 2090 IF A%<>A5C("5") THEN RETURN 

410 FOR P%=1 TO Mat Y=V(P%)! ZEEP UN VPK) Y 4KCATSKS! 2(P%)=24KC-YakS! NEXT 5091 DP=180,0/DPIPRINT "Turning angle is now"}} CURSOR 20,33 PRINT 180.0/DPTi" (start 
420  GOTO 130 ing angle ="3180.0/DPI}" degrees)" 

S00  KS--KS 3092 PRINT "Larger angle ! upper cursor key + repeat key"! PRINT "Smaller angle i lower 
510 FOR P%=1 TO NP%! Z=HP%N Xe X PU) ZUP)8Z22K CAX4K81 X(P%)=XNeKC-2eKS: NEXT cursor key + repeat key" 

520 GOTO 130 3073 . AM&-GETCIIF A%=0 THEN 5093 

400 REM DRAW NEW PLAN 3094 IF A%=94 THEN MODE 4 A%=0! RETURN 

&i0 FOR L%=1 TO NL PA%=LA%(L%N PB%=LBRIL%) 3095 IF A%=14 THEN DP=DP+1,0% CURSOR 20,35 PRINT " #33 CURSOR 20,32: PRINT DP} 
520 DRAW X(PA%MXC%T(PA% TC X(PBRHXCHVIPBSHYC% 17+0%#2 GOTO 5073 

&30 WNEXTIRETURN 5096 IF A%=17.0 THEN DF=DP-1.03 CURSOR 20,31 PRINT " nis CURSOR 20,3) PRINT DP! 
700 REM DELETE OLD PLAN GOTO 5073 

710 FILL 0,0 XMAX,YMAX 18-2#0%! RETURN 5097 IF A%<>13,.0 OR DP=0.0 THEN 5093! DPI=180.0/DP 

800 IF CF%=0 THEN FILL 305,0 300,6 153 GOTO 802 5098 MODE Gi GOSUB 53200: GOSUB 800} A%=0! RETURN 

801 FILL 306,0 300,40 5200 PHI=PI/DPI? KS=SIN(PHI) KC=COS(PHI) RETURN 

202 RETURN 4000 | COLORT 555 5: MODE 0! PRINT CHRSUDIH IF A%=ASC("H") THEN CURSOR 0,20 
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FOR-NEXT loop around it. The timing of the loop itself: 


10 FORI=1 TO 5000! NEXT and do it after an IMP FPT and after an IMP INT, Then try? 
10 FOR 1=1 TO 10000 STEP 2: NEXT and this too is a useless loop which is run through 
3000 times? 


Now let us put something in between, such as A=3 or A=B, The time mounts up so we can reduce 
the loop to 1000 or 300, ar even 100 when functions like SOR, SIN, cos or TAN are used, It is 
usefulto try changing the loop from say 1000 to 10000 to see if in fact it does take 10 times as 
long. For practical reasons a time of between 10 and 30 seconds is recommended, although the 
maximum possible measurement is #FFFF#20 m5, about 20 minutes, 


Now experiment further by putting inside the loop A=8 or A=8,0 or A=B or A=B+4 or A=4+B, 
after an IMP INT and also after an IMP FPT, Integer is not invariably quicker! If you have 
doubts try A%=SQR(P%) and A'!=SQR(P!), 


To give À the value of twice B plus 4, compare the following possibilities: 


A=2%B+4 convenient isn't it? 
A=Be2+4 differant? 
A=B+B+4 this is quicker $! 
A=B+4+B or A=4+B+B 
={B+B}+4 does this make any difference ? 
&=8+(B+4) must be wrong, 
Ai DUU DA) pleases me. 


But to continue! A=B SHL 1 is faster than A=B#B but beware, A=B SHL 5 is slower than A=B#32. 
Try the difference between having the whole of a FOR-NEXT loop on a single line and spread- 
ing it over Z or 3 lines, 


In the second part I wish to deal with the instructions GOTO, GOSUB, IF xx THEN, and ON W 
GOSUB. I never use IF xx THEN followed by a line number. I consider a jump command of 
sufficient importance for it ta be clearly indicated by a GOTO and therefore use IF xx GOTO, 
The GOTO instruction is the most damnable instruction in BASIC, more suited to use in an 
Italian kitchen, being ideal for the production of spaghetti, Here is the kind of thing I ofte 
come across in programs submitted to us: z 


120 IF A=3 GOTO 140 

130 GOTO 160 

140 P=2 

150 GOTO 160 - 

160 END: REM of a hopeless program 


Naturally it works, otherwise its author may have had second thoughts. If A equals three, P 
becomes two, else P is unchanged, But it can be done better: 


120 IF AC>3 GOTO 160 
140  P-2 
160 END! REM of a better program 


or if we want to keep it short! 


120 IF A<>3 GOTO 1501P=2 
160 END! REM of a shorter version 


or if we want to avoid GOTO} 
120 IF A=3 THEN P=2 

Even the IF can be avoided but I do not recommend this as a convenient method} 
120 P=P+Px(SGN(ABS(A-3))-1)-23(SGN(ABS(A-3))-1) 

Try to find your own way nf avoiding IF and then try this line, 


In an earlier article there was a recommendation to jump higher rather than lower in the program 
for the sake of speed, but did you know that ON W GOTO xx is faster than IF xx GOTO? For 
example, IP PEEK(I-1 GOTO 200 is slower than ON PEEX() GOTO 200, 


Testing variables by means of ON W GOTO will not always be appropriate, An extra calculation 
can cancel out the gain achieved, Check at the end if there are too many GOTOs in the program. I 
have actually seen in one example, in Line 50 GOTO 170 and then in 170, GOTO 220 and then in 
220 GOTO 30. That was the result of making changes to an earlier version of the program. 


Now, regarding the GOSUB, while the clarity of a program benefits from a single entry and exit 
from a subroutine, sometimes the speed can be improved by additional entry and exit points for 
the same subroutine, Example! 


70 QGOSUB 2000 


130 GOSUB 2010 
2000 IF À-5 THEN RETURN 
2010 P=zZ 
2020 RETURN 


in such cases I choose to use! 2000 IP A=5 GOTO 2020, thus letting clarity prevail. 

I come across the command ON xx GOSUB so rarely that I think it can be little known. 

Elsewhere in this issue you will find an article by Just van Dunne’ about the GOTO. What he 
describes can be very useful on some occasions but it does take longer than the normal GOTO, 
There is also a short program of mine under the heading PROBLEM PROGRAM, 


Some reactions to the ‘circle’ program in issue 14 have been arriving. Mostly they report fast 
drawing of ellipses instead of true circles, Thank you for the comments! we cannot publish them 
all but maybe a typical one or a combination. If your contribution is not explicitly quoted please 
do not refrain from sending further offerings as we are pleased to receive them and certainly 
take good note of the contents, 


Good luck with the timer and if you make any startling discoveries don't keep them to yourself, 


Frank H Druijff 
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PAGE 02 WRITE & READ R.Kietzmann 








055 0413 EB XCHG into DE, 

056 0414 2A2C04 LHLD ADRI beginnaddress into HL 

057 0417 £5 PUSH H store them elei pd ba an nd Ke ll El rel E br E rer br el reg ae Kar E aiba E mia a a e EE ar 
058 0418 D5 PUSH D —TRANSLATIONS—-TRANSLATIONS-TRANSLATIONS— 
059 0419 213F01 LXI  H,INBUF start input-buffer | GE e pA ba PATA p Gy ph By pt Kg ps by pa ko pak bay pA boj TA yit Dy TA TA TA er e b pt ag a à E o Y do Y eli Y ae e Y cdo pl T E con À aude Y ann à 
060 0£1C C3FOEE JMP — :EEFO call WRITE in ROM | 

061 O41F 3E30 FORTI  MVI A,BANKO switch bank 0 

062 0421 324000 STA  BSWi 

063 0424 3206FD STA — BSW2 

064 0427 Di POP D | TIMING FROBLEMS 

065 0428 C1 POP B | (from DAlnamic 15, page 153) 

065 0429 El POP H | 

057 042A F1 POP Psy | While developing BASICODE it struck me that there were inconsistencies in the instruction 
068 0428 C9 RET | | times of the S080 microprocessor, It seemed that the cause of this was as follows, The 
069 0420 ADRI RES 2 store beginnaddress here i hardware is so constructed that the microprocessor and the video processor make use of the 
070 O42E ADR2 RES 2 store endaddress here i RAM in turn. However at the moment of frame fly-back, (that is when the electron beam changes 
071 from bottom right to top left of the screen), the video processor is not using the RAM and the 
072 xxx READING A MEMORY-AREA FROM TAPE: xxx | microprocessor is running at its full capacity. Possibly this also happens with the line synch 
073 | | (line fly-back) The microprocessor works most effectively at an average frequency of 1,17 MHz, 
074 0430 F5 READ — PUSH PSY start of READ | so normally one would not notice any effect. However when the periodicity is short or the 
075 0431 £5 PUSH H | frequency is high, such as during the reception of BABICODE, telex or morse and certainly while 
076 0432 C5 PUSH B | receiving satellite transmissions, then the resulting frequency will not be what was expected. 
077 0433 D5 PUSH D | | Moreover there will be 50Hz interference from the screen fly-back (this is not hum from mains 
078 0434 3EFO MVI — AQBANK3 switch bank 3 lighting atc), The interference could possibly be reduced with the help of sub-routines in ROM, 
079 0436 324000 STA Benn i (delays etc), But the ROM is not involved in the above effect because the video processor does 
080 0439 3206FD STA — BSW2 | not make use of it. With a periodicity of more than 50 to 100 milliseconds there will be little 
081 043C 214A04 LXI  H,FORT2 store address for | problem because the screen fly-back will not cause difficulty, I hope these notes will spare 
082 043F E5 PUSH H continuing after reading | same folks from sleepless nights. 

MAR NLLN 245704 [HID  QFFSFT load offset into Hl. | | 

084 0443 ES PUSH H store it | With friendly greetings, 

085 0444 213F01 LXI — H,INBUF startaddress input-buffer | 

086 0447 C317EF JHP — :EF17 call READ in ROM | Th. van Lieshout. 

087 044A 3E30 - FORT2 MVI A,BANKO switch bank 0 | 

088 044C 324000 STA  BSW1. 

089 044F 3206FD STA BSW? | 

090 0452 DI POP D | PROGRAMMING TEC TECHNIQUES 

091 0453 Ct POP B | (fram DAInamic 16, page 154) 

092 0454 El POP H | 

093 0455 F1 POP PSW | On this occasion 1 want to put the running speed of programs under the magnifying glass, Of 
094 0456 C9 RET i course the first prablem is how one measures the speed of a particular set of instructions but 
095 0457 OFFSET RES 2 store Offset here | here the DAI can be put to good use, It is as well to write a short timer program which can form 
096 0459 END | a sub section of the program that is to be checked, Here is such a programi- 

5 WAIT TIME 2! POKE #1BF,#FFi POKE #1BE FFF 

xxxxx Symbol Tabelle xxxxx | 95 TiBE-PEEKUGH BEY TIBF=PEEK(#1 BF) PRINT(#FFFF-TiBE-T1BF#256)/50,0 


XXXXXXXXXXXXXXXXXXXXXXXXXXX : . 
These lines can be put in the section to be tested, The variables TIBE and TIBF are of course 


ADRI 042C  ADR2 042E BANKO 0030  BANK3 00F0 integers. We make use of the 20mS clock to reduce the count on #1BE and #1BF by 1 every 20 
BSWi 0040  BSN2  FDO6 FORTI out  FORT2 044A milli-secands until the count is zero. The POKEs in line 5 fill these two bytes with #FFFF, The 


INBUF ot OFFSET 0457 READ 0430 WRITE 0400 WAIT TIME ensures a clean start, Also, since the WAIT TIME instruction makes use of these 
| addresses, it should not appear in the part of program being tested, Reading the addresses is 
best done in the order shown otherwise the timing could go wrong} an error could be caused by a 


0400 F5 £5 CS DS 3E FO 32 40 00 32 06 FD 21 IF 04 E5 count-down pulse arriving between the two PEEKs, resulting in a 20m8 shortfall. There still 
| 0410 2A 2t 04 EB 2A 2C 04 ES DS 21 3F 01 03 FO EE 3E remains another chance of errori at the 256th turn #1BE will be at zero and a pulse then would 
B 0420 30 32 40 00 32 06 FD DI Cl El Fl C9 | reduce it by 1, resulting in a time not af 20mS but of 256320, about 5 seconds, However, an error 
1 | af this magnitude is large enough to be noticeable, Note that the division in line 95 must be by 
0430 F5 E5 C5 DS 3E FO 32 40 00 32 06 FD 21 4A 04 E5 50.0 and not by 50 because a floating point result is needed, 

E 0440 2A 57 04 E5 21 3F Ol C3 17 EF 3E 30 32 40 00 32 | | 
0450 06 FD Di C1 El FI C9 We willexperiment with this timer and no doubt some will find the results surprising. À single 


instruction is executed so quickly that it cannot be timed with this method, so we will put a 
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A REM 323626364646 E E € 3€ 3€ 3C 3636 46 3€ € Je € 9€ 3€ HE 002 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
2 REM « DAI LOGO on  EFSON RX-80 * 003 x Berlin, 8/12/1983 x 
A REM * DUAL DENSITY BIT GRAPHIC * 004 x X 
4 REM * Daniel ROSS I ON * 005 x Use this program to write memory-contents to, x 
5 REM + ix W MSL — WW / OFS * 006 x or read them from tape under use of the Basic x 
ó REM * E-4098 POST 12 FBA x 007 x or with ML-prograns. x 
— REM SEHR EEE e He Je 1e E Je dE | 008 x x 
Lä RESTORE: GOTO 100 009 x Writing: x 
2 PRINT CHRE(X%) 3 010 x In Basic first do a ) INPUT NAMES:POKESIGF,LEN x 
38 RETURN : 011 x (NAMES) ( in order to put a name for the tape- x 
iog FOR AZ=1 TO 4 i l 912 x sequenze into the input-buffer.Don't worry about. x 
iig PRINT CHR€27)0:z"L's | 013 x the stringname; it will not be used. X 
12 X2=98: GOSUE 20: X40: GOSUR 20 014 x Using this program from a Mi-program, you have x 
130 FOR I%=1 TO 49:READ X%:GOSUB 20: GOSUE 20: NEXT IX 015 x to put the name directly into the input-buffer — x 
142 FRINT CHRE (27); 2° 3" s CHRE (20) ¡ CHRE (9) | 016 x which has to be bilt up in the following form: x 
159 NEXT AX . 017 x $13E: $19 , $13F: laength of name , x 
ieu FRINT sFRINT :GOTO i0 . | 018 x 5140 - $18D : name x 
40 END : | 019 x Afterwards poke the beginn-address of the memory~x 
1006 DATA 0,0,0,0, 524,24,24,24,24,24,24,24 | 029 x area, which has to be written on tape, into x 
iü10 DATA a 24,24,24,24,24,24,24, 24 021 x memorylocation ADRI (low byte first}.In the same x 
182 DATA 24,24,24,24,24,294,24,24,24,24,24,24, 24,2 022 x way you put the endadress into ADR2. Then the x 
1859 DATA 14,7,3,0,0,0,0 | 023 x program is started with CALLM WRITE. (You Find x 
1240 DATA 0,0,0,0,96,122,123, 96,112,56,26,11,3,1 | 024 x the values of ADR1,ADR2 and WRITE in the Symbol- x 
1250 DATA 0,0,0,0,0,5,27,26, 96, 96,120,1235,27,5 025 x Table.) x 
1@6@ DATA 0,0,0, 0,0,96,123,123 123,96, 0,0,0,0 | | 026 x x 
1070 DATA 0,255,255, B, 2, 0,0 | 027 x Reading: x 
1488 DATA 0,0,0,0,6,2 2D 222, 6,6, 14,28,216,208,192 | 028 x Put the tape-sequenze-name into the input-buffer x 
1090 DATA 2,6, 30,26, 208,208, 208,208,208,208,:208,208,214,222 | 029 x like discribed above. Then poke the offset for x 
1100 DATA 222,20,6,0,0,6,222,222,222,6,0,0,0, 030 x reading from tane (same meaning like R XXXX in x 
1110 DATA 0,2 55, 255,0, a, GËT: , 031 x utility) into OrFSET like discribed above. x 
1120 DATA 0,0,0,0,60,60, a, 60,0,60,0,60,16,8 | 032 x The program is started with CALLM READ. (You x 
1158 DATA 60, à ,60,36,24,0,4,12,24, 40,24, 12,4,32 | 033 x find READ in the Symbol-Table.) x 
1140 DATA 60,32,4,12,24,40,24, 12,4,0,60,60,60,120 | 034 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
1150 DATA 240,224,192,0,0,0,0 | 035 
. ; 036 xxx WRITING A MEMORY~AREA ON TAPE: xxx 
| 037 x Deklarations: 
| 038 INBUF EQU :013F startaddress input-buffer 
1 039 BSW1 COU :0040 bankswitchaddress 1 
| 040 BSW2 COU :FDG6 bankswitchaddress 2 
l 041 BANKO EQU :30 code for bank 0 
042 BANK3 EQU FD code for bank 3 
043 
| 044 ORG :0400 start of WRITE 
045 0400 F5 WRITE PUSH PSY 
046 0401 ES PUSH H 
; — G47 0402 C5 PUSH B 
"AI 048 0403 DS ` . PUSH D 
ef kel Ee 049 0404 3EFO MVI A,B^NK3 switch bank 3 
050 0406 324000 STA BSW] 
051 0409 3206FD STA  BSY2 
052 040C 211F04 LXI  H,FGRT1 store address for 
053 040F ES PUSH H continuing after writing 
054 0410 2A2E04 LHLD ADR? load endaddress 





DAInamic 84-22 151 





150 DAlnamic 84-22 

















COLORT A B C D met A,B,C en D getallen van @ t/m 15, COLORT 8 9 9 8 is stan- 
daard. Pas op met de getallenj er wordt bij intikken geen controle op uitge- 
voerd ! COLORT 99 999 9999 99999 geeft geen SYNTAX ERROR maar kan niet uitge- 
voerd worden. Overigens wordt integer verondersteld maar floating point is wel 
toegestaan. De kleur van de letters en de bij die letter horende achtergrond 
is afhankelijk van de kleurenset van die plek en de inhoud van de bij die plek 
horende colourbyte. Anders dan in de vier kleuren grafische modes kunnen we 
dus niet alle naast elkaar liggende punten een van de vier kleuren geven. We 
nemen even COLORT A B C D na een MODE @ en geen extra veranderingen en we be- 
kijken een bepaalde plaats op het beeldscherm. Hiervoor nemen we bv de plaats 


**# ı Om een schone bladzijde in MODE 9 te krijgen moet U niet, zoals vaak ### 
TIP gedacht wordt een PRINT CHR$(12) geven, maar PRINT CHR$(12)5 . TIR 
tet Zonder de puntkomma wordt de bovenste regel gelijk overgeslagen . ERE 

Bij een eventuele scroll van een regel krijgen we een opschui vend 

beeld, dat nieuwe gebruikers doet vermoeden dat ze iets missen 

en gebruikers, die het programma kennen, irriteert. 


Linksboven in het beeld, We plaatsen hier een "0" dmv CURSOR @,23:PRINT "O" en 
zien dat de achtergrond kleur van de "Dr kleur A is en de letter zelf kleur B 
heeft. Als we nu de colourbyte vullen met #FF zal de achtergrond kieur C word- 
en en de letter zelf kleur D. Als we de colour byte met "OF (00001111) vullen 
zullen de eerste vier kolommen van de letter (bits zijn 9) de normale voor en 
achtergrondkleur hebben  ( dus A en B) en de laatste vier kolommen zullen uit 
de tweede set kleuren (dus C en D) opgebouwd zijn. 

De colourbyte is NIET de byte naast de byte , waar de karaktercode in staat 
maar drie bytes verders dwz adres-3. Dit betekent echter , dat de colourbyte , 
die behoort bij het laatste karakter van een regel tevens de regelcontrolebyte 
is van de volgende regel. U begrijpt dat deze "rout moeilijk te verwerken is 
zodanig dat we er geen last van hebben, 


**e ı We kunnen in vier kleuren mode wel degelijk alle kleuren op een ded 
TIP beeld gebruiken. Hiervoor moeten we dan bij elke regel opnieuw een TIF 
ter van de vier kleuren veranderen. Het recept hiervoor staat in het gd 


artikel en ook in een der programma’s. 


Het veranderen van de kleurcontrolebytes is dus mogelijk door de adressen uit 
te rekenen en die te vullen met 4FF. Zie mijn programma “SPOT ON TEXT” maar 
eenvoudiger is het meestal gebruik te maken van de cursor, Als de cursor op de 
juiste plaats staat, staat de betreffende kleurbyte in #76) als we deze infor- 
matie veranderen in #FF ( of iets anders indien gewenst) zal de DAI zelf het 
wel op zijn plaats zetten, Het programma hierna maakt het hopelijk duidelijk. 


19 REM 4 COLOUR CHARACTERS / F.H. DRUIJFF - 5/84 

20 MODE @:PRINT CHR$4(12)::POKE #74,@:POKE #75, 255: COLORT 8 à 8 13 
sa B$=" 1 9345578901 234567099 1 2345678901 294567890 1 2345678901 234567870" 
40 Té="colour demo" 

so FOR I=@ TO 22:PRINT S$:NEXT:PRINT Gë: 

60 LO=LC+it:LeRNDi($¢@.@):CURSOR L,24-LC 

76 FOR 1=0 TO 1@:POKE 475,9FF:PRINT MIDS(TS,I,1) P:NEXT 

80 IF LC«24 GOTO 609:GGTO 89 


U zult als U de moeite neemt om dit programma in te tikken en het ook te laten 
werken, merken dat de kleurgegevens niet mee doen in de scroll (dat is het om- 
hoog schuiven van het beeld om plaats te maken voor een nieuwe regel). Ik kom 
daar op terug. Nu eerst het programma met 16 kleuren in een A kleurenopboum. 
We kunnen daarvoor hetzelfde programma als hiervoor gebruiken en er hoeft maar 
een regel aan toegevoegd te worden, Regel 10 veranderen we voor de netheid nà- 
tuurlijk ook even. 
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18 REM 4/15 COLOUR CHARACTERS / F.H. DRUIJFF — 3/84 
De nieuwe regel geven we nummer 65, zodat hij er zo tussen kan. 
es POKE 4$06074-LC4486,3F 1+RND (15.0) 


N.B. 40074 = #BFEE + #86 nodig omdat LC begint met 1 en niet 0. 

We komen nu toe aan de 16 kleurentekstmode. Ook in tekst is het mogelijk om 
met zestien kleuren te werken. De methode van codering lijkt veel op die in 
de ló-kleuren grafische modes. De kleurcontrolebyte bevat dan de twee kleuren 
die wij per letter als achtergrondkleur en voorgrondkleur wensen. Maar hoe kan 
de DAI dan weten, dat wij in zestienkleurenmode wensen te werken en niet in de 
kleurcontrolebyte alleen een 4-kleurencode hebben gegeven. Welnu dit doen we 
met de regelcontrolebyte. Pas op de eerste en niet de tweede tt Dit kan ver- 
warrend zijns daar we zoeven wel in de tweede byte iets moesten veranderen om 
iets aan de kleur te doen. De eerste regelcontrolebyte (#BFEF - .. x #86) moet 
nu beginnen met 1 (bit 7). Aangezien we nog wel de hoogste resolutie wensen en 
de regelhoogte normaal willen laten moeten we POKE'n met SEO, Oefen wat met 
deze stof om het goed door te krijgen. In het begin willen we nog wel eens de 
voorgrondkleur en achtergrondkleur in de verkeerde nibble (halve byte) plaat- 
sen. Hieronder een demonstratieprogramma, waarbij weer gebruik gemaakt wordt 
van de cursor. Voor onze rekenaars zie DAlnamic 17 blz. 219. 


18 REM 16 COLOUR CHARACTERS / F.H. DRUIJFF - 5/84 

20 MODE @:PRINT CHR$(12) P COLORT 8 0 0 8 

30 8$2"123456789012345678901234567890123456789012345678901234507870" 
49 FOR I=1 TO 23:PRINT S$:NEXT:PRINT 5%; 

30 LO=LC+1:LCB=46075-LC##86: POKE LCB, #FA 

60 FOR Lei TO 60:C=(C+i) MOD 16sPOKE LCB-9-1-I,C*i16t8:NEXT 

76 IF LC«24 GOTO 59 


Nu tot slot iets over de regelhoogtes. In elke eerste regelcontrolebyte staat 
standaard #7A, waarmee de linerepeatcount op 19 gezet wordt. De regelhoogte is 
dan 1410-11, wat overeen komt met 22 scans op uw beeldbuis. Veranderen wij nu 
de regelhoogtes kunnen we daar grappige effecten mee maken. In de aankondiging 
van een Games Collection wordt van een aantal van de bovenste regels de regel- 
hoogte op maximum gezet. Hierdoor zijn de onderste regels waar tekst in staat 
niet zichtbaar. Nu worden de regelhoogtes kleiner gemaakt. De tekst schuift 
daardoor langzaam van onder af het beeld in. Een ander  aardig effect laat ik 
hieronder zien. We breiden MODE @ uit tot 48 regels, die om en om regelhoogte 
1 of 16 krijgen en tekstkleur identiek achtergrondkleur of verschillend. We 
wachten op een toetsaanslag en dan worden alleen regelcontrolebytes gewijzigd. 


18 REM PAGE SWAP / F.H. DRUIJFF - 6/84 
20 MODE @:PRINT CHR#(12)3:COLORT 8 @ 8 8 
39 Ate" ABCDEFGHIUKLMNOPORSTUVWXYZ" r BS=" 1274567890" 
40 D-244886: S=#BFEF : Vz-24486:E75-4610186 
30 POKE #8C,4CF:POKE Aën, PAb  ...... 5 co Uitleg volgend nummer ! 
60 FÜR 1=8B350 TO S:POKE 1-D,PEEK(1):NEXT 
76 FOR 1=8 TO E STEP ViPOKE I,870:POKE I-1,98D8:POKE I-#66,879: 
POKE I-4597,9D0:NEXT 
80 FOR I=1 TO 23:PRINT A$PI:PRINT B$} 1: NEXT 
30 HzGETC:IF Hs GOTO 90: J=1-3:1F J=@ GOTO 200 


Log FOR I=S TO E STEP ViPOKE I-#97, #D8:NEXT 


119 FOR Is8 TO E STEP ViPOKE 1,#79:POKE 1-#86,#70: NEXT 
120 FOR I=5 TO E STEP ViPOKE I-1,9DO:NEXT:GDTO 96 

200 FOR 1=8 TO E STEP VÍPOKE I-1,9D8:NEXT 

210 FOR I=$ TO E STEP ViPOKE 1,%$70:POKE 1-#86, #79: NEXT 
229 FOR 1=8 TO E STEP ViPOKE I-487,8DO:NEXT:GOTO 70 


Frank H, Druijff 
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PROG Fm eo m M E ES T E C H M I E KE M 


Regelmatig krijg ik vragen over het een of ander gesteld . Soms, als het een 
specifiek probleem voor een persoon is, geef ik die direct antwoord (vermeldt 
aub telefoonnummer!) , maar andere keren schrijf ik het probleem op en laat het 
dan tijdelijk rusten. Later zal het dan in een artikel aan bod komen, maar dan 
niet alleen, maar in een context van allerlei soortgelijke en er mee samenhan- 
gende problemen.  Deze keer wilde ik een aantal problemen behandelen, die alle 
iets met MODE @ van doen hebben . Dit onderwerp is echter zo omvangrijk geble- 
ken, dat ik het over twee artikelen wil verdelen . Sommige onderwerpen behoren 
zijdelings bij een MODE @ artikel, maar zijn ook betrokken bij een artikel dat 
over PRINT gaat. Daarom zal ik vervolgens daar een artikel over schrijven. 


Eerst de algemene theorie nog maar eens doornemen hoe de standaard tekstmode 
MODE @ is opgebouwd. Het beeldgeheugen hiervoor start op adres 8BFFF en wordt 
dan naar beneden toe uitgelezen. Dat wil zeggen dat de eerste byte waar de 
DAI naar kijkt om te weten hoe het beeld is opgebouwd SBFFF is en de tweede 
#BFFE, de derde #BFFD enz.. Als U dan ook een bepaalde plaats in het beeld 
wilt veranderen door middel van een POKE op adres XX en U wilt daarna een 
plaats rechts of onder de vorige plaats veranderen, dan zult U moeten POKE'n 
in een adres dat kleiner is dan de XX van daarvoor. De eerste 16 (#10) bytes 
zijn onderverdeeld in 4 groepjes van 4. Zij vertellen de DAI dat we in MODE @ 
werken en welke 4 kleuren we willen gebruiken. Zo’n groepje van 4 bytes is 
eigenlijk niets anders dan een regel in de zgn UNIT COLOUR MODE. 

De kenners zullen echter al een fout in de voorafgaande regels hebben gezien. 
Ik ben mij daar wel bewust van, maar ik wil liever de beginner in deze stof, 
eerst een simpele uitleg, die dan later wordt verbeterd, geven dan ineens men- 
sen afschrikken, die als zij hadden doorgelezen het best hadden begrepen. 


Ko 4X € X j n t e r m e z z o * * € * 4€ * * € i n t e r m e z z o * * ë * 


BBFFF bevat #36 = 0011 0110 d.w.z.: 98 vier kleuren grafisch !!!!! 
11 hoogste resolutie (tekst/mode 7/8) 
0110 = 6 dus 7 regels hoogte 
#BFFE bevat 388 = 1000 1000 d.w.2.: 1 kleurverandering mogelijk 
0 maak unit colour mode 
Q0 verander kleurregister 9 
eerste van de COLORT s kleur 20 
1090 = 8 achtergrond is grijs 
&BFFD en #BFFC bevatten standaard 9 dus geen punten zichtbaar, 


Bovenstaande informatie zorgt er voor dat bovenaan het beeld zeven grijze 
regels komen, De andere groepjes van vier bevatten dezelfde eerste, derde 
en vierde byte, maar de tweede byte zal een van de andere kleuren doen 
veranderen. ABFFA = #9x, #BFF& = #Ay en #BFF2 = $Bz, na COLORT ax y Z. 


sk oe ok ck ok zz zé k k k k zz KO À 
xx ck k ée ck oe k oe Ok k Me SS k k zz k 


hee R dj Dn t B Fo m e z z o € & 4 4 4€ € € * ij n t er m e z z o * * * * * 


Het MODE 6 - beeid wordt dan in het geheugen opgebouwd door 24 regels van elk 
134 bytes, De eerste twee bytes zijn de zgn controlebytes voor de gehele regel 
lij zijn opgebouwd op dezelfde wijze als de twee eerste bytes uit de 'header'. 
Na een MODE 9 opdracht zijn zij respectievelijk #7A en $40. Dit betekent voor 
de DAI tekstregels met vier kleuren mogelijkheid en regelhoogte il terwijl er 
geen unit colour mode is en er ook geen kleurverandering moet plaatsvinden. De 
laatste zes bits , die de informatie voor eventuele kleurverandering bevatten, 
worden genegeerd als het eerste bit ® is . 'Spelen' met POKE zal dus vaak geen 
gevolg hebben. We kunnen echter wel hiermee een aardig kleurrijk effect maken 
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zonder alleriei ingrijpende veranderingen aan te hoeven brengen. We veranderen 
de kleurcontrolebyte(s) zodat bv tekst of achtergrond van kleur veranderen. Gm 
dit te doen moeten we het volgende doen. Bepaal het adres van de byte die ver= 
anderd moet worden; bv vanaf regel 16 willen we de achtergrondkleur veranderen 
van de standaard 8 naar bv ii, Het adres is nu SBFEF-1004486-1, te weten start- 
adres van de eerste regel min aantal regels (10) maal de regellengte (#86°134) 
min een om de kleurcontrolebyte te krijgen . Om kleur te kunnen veranderen zal 
bit 7 (het meest linker) moeten aanstaan (een zijn), bit 6 moet aanstaan om de 
unit colour mode te voorkomen, bit 4,5 moeten @ zijn om juist kleur 20 (achter 
grondkleur) te veranderen en tot slot moet 0,1,2,3 gevuld worden met de nieuwe 
kleur hier 11 dus 4B. We doen dus een POKE SBFFE-19*$86-1, 8408 en we hebben een 
nieuwe achtergrondkleur na de bovenste 19 regels, Wilt U deze kleur alleen la~ 
ten gelden voor die regel en de volgende regel de oorspronkelijke achtergrond- 
kleur laten heben, zal U de kleurcontrolebyte van die volgende regel moeten 
gaan veranderen. U doet dit mbv POKE $SBFEF-1144086-1,908. 


kik o: Het is mogelijk het gehele beeld op en neer te laten gaan door LEE 
TIP enkel de regelhoogte(s) in de ‘header’ te veranderen. TIP 
i4 Vervang de regelhoogte 7 bv door 16 in BREFF . de 


Mark Hooykaas gebruikte dit in spelonk (GC 10), 
tik maar in: 
10 Be4BFFF:iFOR Isa TO 103 POKE B,S83F:WAIT TIME 2:PDKE B,*36: WAIT TIME 2: NEXT 


Ik heb zoeven echter een belangrijke bron van vergissingen nog niet vermeld. 
De beeldopbouw en de uitlezing daarvan doet vermoeden dat de bovenste regel in 
het beeld regelnummer een of eventueel nul heeft, maar dit is jammer genoeg 
in tegenspraak met de CURSOR instructie die juist de onderste regel als regel- 
nummer nul neemt en de bovenste als nummer 25, 


We gaan wat dieper in op de opbouw van de regels in MODE 6. We zagen al dat de 
regel 134 (=#86) bytes lang is. Elke regel begint met twee controlebytes die 
aangeven dat dit een tekstregel is met regelhoogte 11 (44 ! inderdaad niet #5) 
en dat er geen unit colour mode regel volgt en er geen kleurveranderingen 
plaatsvinden. De regel zelf bestaat uit 60 karakters die elk een byte nodig 
hebben en daarnaast een kleurcontrolebyte. Een eenvoudig rekensommetje leert 
ons echter dat dit nog geen 134 bytes zijn. (560524275122) Wat zijn de laatste 
12 bytes dan ? Nu die zijn eerlijk verdeeld over begin en einde van de regel. 
Elke regel begint met drie karakters en eindigt met drie karakters, die met de 
‘normale’ BASIC instructies echter niet gemaakt kunnen worden. De PRINT, LIST, 
en EDIT bv beginnen allemaal met pas het vierde karakter. Dit is gedaan om de 
afstelling van uw scherm op de computer te vergemakkelijken. Aan de randen van 
het beeld krijgen we anders snel, dat bepaalde tekens niet meer leesbaar zijn. 
Maar met POKE kunnen we die bytes echter toch vullen , Het velgende programma 
zal U duidelijk maken hoe dat gedaan kan worden. 


000 19 REM FIRST & LAST COLUMNS / F.H. DRUIJFF - 6/84 =< 
eoi 20 _ MODE @:COLORT 8 6 9 14:6=48 =< 
002 sa FOR I=#BFEF TO I-234886 STEP -#86 =$ 
GOS $0 POKE 1-2,48:PÜKE I-4,AsPOKE 1-6,48+D -5 
904 30 POKE I-5,8FF:POKE 1-7,S8FF:POKE I-9,8FF e 
903 69 POKE I-128,48C("-"):POKE 1-130, ASL (047) =‘ 
007 78 POKE I-131,@FF:POKE I-133,8FF =$ 
908 geo B=(B+1) MOD 10; 4=A+1-SGN(B) : NEXT =$ 
009 98 LIST: END 


Maar, zult U zeggen, het waren toch drie karakters aan het eind van de regel ? 
Juist , maar voordat we dat kunnen begrijpen moet ik eerst iets vertellen over 
het gebruik van de vier kleuren in tekst. De kleuren zijn in te stellen met de 


DAInamic 84-22 147 


DBASIC V2.1 page 4 


+ ON BREAK GOTO «line number; 
-program only 
-suspends program execution and starts execution 
of the interrupt service routine at <line number > 
when the BREAK-key is pressed 
+ ON BREAK GOTO ¿label > 
-program only 
-suspends program execution and starts execution 
of the interrupt service routine at «label? 
when the BREAK-key is pressed 
ex. — 
18 ON BREAK GOTO “INTERRUPT 


65686 “INTERRUPT PRINT I: 1=1+1: CONTINUE 


+ CONTINUE 
-program/command 
“continues program execution at the point where it 
was interrupted 


+ DOKE <expressioni>,<expressionz+ 
-program/command 
-puts the 2-byte value of “expression? in address 
location <expressioni>, low byte first 
Bx. — 


2606  HEAPZ-S829B:DOKE HEAPZ, 44000 


+ BREAK ON/BREAK OFF 
-program only . 
-enables/disables interruption of a DEASIL program 


+ 


COMPILE 

-command only 

-prepares the program for execution and checks for 

structural errors. 

-note :  -when giving the RUM command the compiler 
will be called automaticaly if the program 
has not been compiled yet. 
-compilation will execute very fast since 
{DIBASIC is already semi-compiled 
-a compiled program will be auto-start 





+ DEF PROC <name> €4pl2,..VAR Svi? ARR <al>,..FN “tl 
~program anly 
~defines a procedure 

-ipi^,..Zpi?^ are value-parameters, they will be 
assigned a value equal to the actual value of 
the expressions in the caller. 

vi}, NI are — variable-parameters, these 
variables will refer to the corresponding 
variables in the caller. 

-4ai^,..iak? are array-parameters, they will 
refer to the corresponding arrays in the caller. 





144 Dalnamic 84-22 





DRASTIC V2.1 


Kell 
will refer to 
the caller. 

ex. — 
ig DEF PROC PLOT MINZ.MAXZ VAR XX FN Z 
20 FOR XZ=MINZ TO MAXX 
30 DOT X4,2 3 
46 NEXT 
we END PROC 


-this procedure can be called by 


function-parameters, the symbols 
the corresponding expressions in 


1008 PLOT o, YMAX, CH, (EXT) / YMAX 
~all parameters are optional 
+ PROCEDURE ...:END PROC 
ex % a us 


ie PROCEDURE HÜME:PRINT CHRS$GGLZ)::END PROC 


+ DEF FM saa IEND FN/FUNCTION ...:END FN 
-program only 
-defines a function 
-the parameters are of the same type as procedure” 
parameters. e 
EX « — 
28 FUNCTION FACH (NA) 
3e IF NA>L THEM FN = NZSFACZ(UMZ-1) 
4e ELSE FN = i 
Dë END IF zEND FN 
-a function has a certain type (fpt/int/#) 
-for rather simple functions a simplified 
syntax is possible 
EX « ara 


ie DEF FN LOWCASES=CHRS (GETC [TOR #20) 


-note 


es 


+ FN = {expression? 
-program only 
-ends the execution of a function 


+ LOCAL vib, EVE anne 
-program only 
“declares variables <vi>,<v2>,.. as local to the 
procedure or function 
I hope this bit of information will give you an idea of 
the possibilities of DBASIC. In the next issue I will 
discuss in more detail procedures, functions, new 
implicit defined functions and DBASIC extensions. 


Willy Coremans 


Willy Coremarn, o 20/3/38 „ electronic engines, 


joined DAinamica redaction in cat $2 . Boftwar e 
analyst by profesion, he worked an DeBABIC From 


oak IX réi new . 
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+ GOSUB «label; 
-program only 
-starts execution of the subroutine at labeled 
line 
ex. — 
2000 GOSUB "CALC 


30000 "CALC AZ=F1Z%(B%):...:RETURN 


+ IF <expression> GOTO <label> 
-program only 
-if the logical expression is true then proceeds 
program execution at labeled line, else continues 
program execution at the next statement 
ex. — 
100 IF A=1 GOTO “EXITsA=1:... 


aed 


10000 "EXIT END 


+ IF <expression> THEN ...:ELSE ...:END IF 
-program only 
-if the logical expression is true then executes 
statements between THEN and ELSE, else executes 
statements between ELSE and ENDIF 
-note : the ELSE statement is optional, END IF is 
required 
ex. ware 
1200 IF HELPFLAGS$-"Y" THEN GOSUB "HELP:... 
1256 ELSE STOP 
1260 END IF 


+ ON ERROR GOTO <line number? 
-program only 
-when a runtime-error occurs, program execution 
will proceed at {line number > 
+ ON ERROR GOTO <label > 
-program only 
-when a runtime-error occurs, program execution 
will proceed at labeled line 
ex. — 
ie ON ERROR GOTO "TRAPERROR 
50000 "TRAPERROR IF ERR$="" GOTO “DBASICERROR 
50010 ELSE... 


a xw a 


+ RESUME 
-program only 
ends the error recovery routine and resumes pro” 
gram execution at the statement wich caused the 
error 
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+ RESUME <line number? 
-program only 
-ends the error recovery routine and resumes pro- 
gram execution at <line number? 
+ RESUME <label > 
-program only 
-ends the error recovery routine and resumes  pro- 
gram execution at “label? 
* RESUME NEXT 
-program oniy 
-ends the error recovery routine and resumes pro- 
gram execution at the statement immediately 
following the one wich caused the error 
ex. avers 
50000 "TRAPERROR IF ERR=16 THEN RESUME 18 
50616 ELSE IF ERL=1006 RESUME "EXIT 
54020 ELSE RESUME NEXT: END IF :END IF 


+ ON <expression> GOTO <labeli>,<label2:,... 


-program only 

-when the value of ¢expression> is 1 then execu- 
tion proceeds at <labeli>, when the value of 
expression) is 2 then execution proceeds at 
“label? ...etc... 


+ ON <expression?> GOSUB <labeli?>,<label2>,... 


“program only 
-when the value of <expression> is i then execu- 
tion of the subroutine at <labeli> is started ... 
gx. sae 
206 ON GETC-#36 GOSUB "INIT, "PROCESS, "EXIT 


+ WHILE dexpression» DO ...:WEND 


-program only 
“while  <expression> is true executes the 
statements between DO and WEND 
ex a an n" 
1900 WHILE GETC=@ DO WEND: REM WAIT FOR KEY 


+ REPEAT ...:UNTIL “expression: 


-program only 
-repeats statements between REPEAT and UNTIL, 
until <expression> is true 

EX à * a 

2000 REPEAT A=A+1: UNTIL A-1606 


+ ERROR <expression> 


“pragram/ command 
-provokes the error with number “expression? 
ex. *ERROR 36 
END FROCEDURE WITHOUT PROCEDURE 
* 


LA 
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Beste leden, 


Met de vacantie voor de boeg sturen we U nummer 22. DAlnamic, met een 
ledenbestand van meer dan 1989 leden is uitgegroeid tot een omvangrijke 
organisatie.  Vele medewerkers dragen hun steentje bij om alles zo vlot 
mogelijk te laten verlopen. We willen toch nog eens melden dat al deze 
activiteiten gebeuren op vrijwilligers-basis en dat er ook vele uurtjes 
vrije tijd verloren gaan: aan minder prettige bezigheden zoals 
administratie, boekhouding, BTW enz. Wij doen ons best om uw bestellingen, 
abonnementen en vragen snel en nauwkeurig af te werken. U kan ons hierbij 
helpen door uw problemen door te spelen aan de juiste personen : Bruno Van 
Rompaey verzorgt de ledenadministratie, hier kan U ook terecht voor nude 
nummers van DAInamic. Frank Druijff ontvangt graag uw spelprogramma's of 
programma’s ivm programmser-technieken of problemen. Hij wordt hierin 
bijgestaan door Nico Looije en nog een paar andere medewerkers. De rest van 
uw problemen en creaties mag U loslaten op de redactie in Herselt. U 
bespaart ons ook veel tijd door uw bijdragen of programma’s te bezorgen op 
velletjes A4 (formaat van het tijdschrift) , een redelijke marge links en 
rechts maakt het layaut-werk makkelijker. Zorg aub voor een goede 
"zwarting" van uw bijdragen op papier, een nieuw lint op de printer of 
schijfmachine kan wonderen verrichten ! Het is begrijpelijk dat niet alle 
bijdragen en artikels meteen hun weg vinden naar de bibliotheek of het 
tijdschrift, Mogelijk heeft een medelid uw idee vlugger,beter,eerder of 
duidelijker in een programma verwerkt. Een eenvoudige en klare documentatie 
maakt het ons mogelijk om uw werk vlot te apprecieren en verder te 
orienteren. Aarzel niet om nog eens contact te nemen of een verbeterde 
versie op te sturen indien uw inzending zander gevolg gebleven is. 
Overigens is het aanbod van nieuwe en kwalitatieve software momenteel erg 
hoog : Verder in dit nummer vindt U tal van nieuwe pakketten. We zijn 
bijzonder fier op de creatie van Willy Coremans die met D-BASIC onze 
DAlcomputer nog meer allure en programmeergenot bezorgt. We kennen 
momenteel een belangrjke ledenaangroei in Frankrijk. Cedric Dufour heeft 
een paar medewerkers gevonden zodat onze afdeling in Frankrijk spoedig 
opnieuw aan de slag zal gaan. wij wensen U amusement en lering met nummer 
22 en verder een prettige vacantie!. 


Dear members, 


We hope you can spend some interesting time with DAlnamic 22 during your 
summer holidays. We welcome the many new French members. Cedric Dufour has 
good news for them : he found a few friends willing to assist him in 
managing DAlnamic-division in France. They will announce their activities 
in next issue. For the moment, please contact Bruno Van Rompaey for 
subscriptions,  game-programs can be send to Frank Druijff, other programs, 
articles for our newsletter and software-orders are welcome on the 
redaction in Herselt. In this (and next) issue you will find many new 
software packages, we are very proud with the realisation of D-BASIC by 
Willy Coremans,a very active member of DAInamic redaction. 


We wish you relaxing summer holidays , dai dai ... 


Wilfried Hermans 
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—————————————————————— TELGTE 


COLOFON 


DAlnamic verschijnt tweemaandelijks. 
Abonnementsprijs is inbegrepen in de jaarlijkse 
contributie . 

Bij toetreding worden de verschenen nummers van de 
jaargang toegezonden. 

DAlnamic redactie : 





Dirk Bonné wdw 
Freddy De Raedt Herman Beliekens 
Wilfried Hermans Frans Couwberghs 
René Rens Guido Govaerts 
Bruno Van Rompaey Daniël Govaerts 
Jef Verwimp Frank Druijff 

| Willy Coremans 

Vormgeving : Ludo Van Mechelen. 





U wordt lid door storting van de contributie op het 
rekeningnr. 230-0045353-74 van de Generale 
Bankmaatschappij, Leuven, via bankinstelling of 
postgiro 

Het abonnement loopt van januari tot december, 


DAlnamic verschijnt de pare maanden. 
Bijdragen zijn steeds welkom. 





CORRESPONDENTIE ADRESSEN. 
Redactie en software bibliotheek 





Wilfried Hermans 
Mottaart 20 

3170 Herselt 

Tel. 014/54 59 74 


Kredietbank Herseit 
nr. 401-1009701-46 
BTW : 420.840.834 


Lidgelden / Subscriptions 


Bruno Van Rompaey 
Bovenbosstraat 4 
Hoflaan 70 


B 3044 Haasrode 
3062 JJ ROTTERDAM 


Belgié 
tel. : 016/46.10.85 Tel. : (010) 144802 


Generale Bankmaatschappij Leuven 
nr. 230-0045353-74 


Inzendingen : Games & Strategy 


Frank Druijff 

's Gravendijkwal 5A 
NL 3021 EA Rotterdam 
Nederland 

tel. : 010/25.42.75 


Voor Nederland : 


GIRO : 4083817 
t.n.v. J.F. van Dunne’ 


PERSONAL COMPUTER USERS CLUB 


functie/symbool 


back-space 

TAB 

linefeed — 
clear screen 
CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT. 
space-bar 


pijltje rechts 
pijltje links 
pijltje boven 
pijltje onder 
volle blok 
verticale lijn 
horizontale lijn 
6 hor. lijnen 
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C AT ALOG _ DAlnamic software 


title audia der 


RECENT TITLES 


— — — — — — — — — — — — — 


Games 12 758 9060 
Math'fun 1 1000 1150 
Bits & Bytes 758 908 
Character Generator 1759 1900 
ER 2000 2190 
DAYLAXIANS 2108 2190 
PUZZLY 2100 2199 
DUEL 2100 2100 
C-L, 1.0. 3200 3000 


Gestructureerd prograameren met DAI-BASIC 1106 


NEW TITLES 


MIX i 300 650 
QUEST adventure 600 730 
Sociale Geografie 1000 1130 
D-BASIC 2000 2156 
Math' fun Z 1000 1150 
DOS-TOOLKIT 2 x BOK : 1259 

DATAFLEX 2 x BOK : 1560 


SOON AVAILABLE 


_ Frogger 


The long-awaited ARCADE-classic also on you DAI-computer. 
Lead the froggs across the road and the dangerous river... 








A very original 100% machine language space game with many levels 
and beautiful features... 


Toolkit 6 


Another collection of very useful routines for programmers.. 


Turtle-Basic | 


All the commands build-in in BASIC to learn and play with 
turtle-graphics on your screen.Turtle-BASIC has also some 
new extensions for BASIC : LLIST,LPRINT,HOME, REPEAT UNTIL, 
WHILE-WEND, DOKE, DEEK, SWAP ..... 
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